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ARTIKELN !! 


Peripherie 


Modulsoftware 


RS 232 Karte (Original TI) 

379.- 

Extended Basic II Plus 

279.— 

RS 232 Karte (Atronic) 

299.- 

Mini Memory (Original TI) 

169.— 

32 K-Karte (Atronic) 

299.- 

Editor/Assembler (32 K notw.) 

159.— 

Disccontroiier OSDD (Atronic) 

449.- 

Tl-Wriler (32 K + Disk notw.) 

259.— 

Compact Peripherie System CPS 99 


Multiplan (32 K + Disk notw.) 

259.— 

mit 1 Diskettenlautwerk DSD0 


TI Logo II (32 K + Disk nolw.) 

299 — 

+ 10 Disketten 

1399.- 

Disktixer (Navarone) 

129- 

CPS 99 mit 2 Diskettenlaufwerken 


Terminal Emulator II 

85- 

DSDD + 10 Disketten 

1749 - 

Conneclfour. Altack NUR je 19 - 

Diskettenlautwerk DSDD für Peri • 


Alpiner. Chisholm Trail. 


box mit Einbausatz 

399.— 

Othello. Tombslone Cily 

|e 29- 

Externe 256 KErweiterung 

589.— 

Car Wars, Defender, Dig Dug. 


Externe 32 K-Erweiterung 

199- 

Invaders, Munch Man, Statistik 

je 39.- 

Externe 32 K Erweiterung batterie- 


Falhom. Jungle Hunt, Moon Patrol. 


geputfen 

239.— 

Hopper. Parsec. Indoor. Soccer 

ie 49 - 

Externe 32 K-Erweiterung mit 


Congo Bongo. Burgertime. Espial. 


1 Centronicsschmttstetie 

269 — 

Moonsweeper. Microsurgeon. Treasure 

Externe 32 K-Erweiterung mii Cen ; . 


Island. Donkey Kong. Tunnels of 


tronicsschnittstelie + Drucker¬ 


doom. Protector II 

|e 59.- 

kabel + Epsonürucker IX 80 

1169.— 

Adventuremodul. Buck Rogers, Reiurn 


Öto + Epsonprucket FX 85 

1519 — 

lo Pirats Isle. Slar Trek. Video 


dto + StaroruckerGemim-lOX 

859 - 

Chess, Shamus 

ie 69- 

öto + Starörucker NI-10 

1259 — 

Popeye, Pole Position. Miner 

ie 79 - 

Sprachsynthesizer 

175.- 

Datenverwaltung + Analyse 

79.- 

Moflulexpanöer 31ach 

RGB-Modulator 

125- 

179.— 

BÜCHER 


Akustikkoppler Dataphon S 2t fl 


Editor/Assembler Handbuch dt 

98.- 

+ externe V-24-SchnittsteHe 


Mim Memory Spezial dt. 

98.- 

+ Verbmdungskabet 

539.— 

- TMS 9900 Assemblerhandbuch lut das 

Akustikkoppler Dataphon S 21 d 


.Mini Memory dt 

78.- 

+ Kabel für RS 232 Karte 

299.-r 

TI-99/4 A intern dt 

38- 

Tl-Maus mit Sotlware (Diskette) 
Fernbedienung 

295.— 

... 65.- 

Disketten- und 


MBX-Sprachsteuereinheit + 
Baseballmodul anschlußlertig 

325.— 

Cassettensoftware 

Grafiktablett Supersketch + Dig 


Gesamtübersicht mit Preisliste 


Dug + Delender + Statistik 

179,— 

erhalten Sie gegen Zusendung eines 
.'•Freiumschlags (Kennwort: TI-99/4 A). 
z.B. TI-ArtiSl 

99. 



3 D-World, Graphicmaster 

ie 75- 


!!! Ebenfalls im Lieferprogramm: Atari, 
Epson, Commödofe + Schneider !!! Ver¬ 
sandkostenpauschale (Warenwert bis DM 
1000,—/darüber): Vorauskasse (DM 
8,—/20,—), Nachnahme (DM 11,20/23,20), 
Ausland (DM 18,—/30,—). Lieferung nur 
gegen Vorauskasse oder per NN; Ausland 
nur Vorauskasse. 

CSV RIEGERT 

Schloßhofstr. 5, 7324 Rechberghausen, Tel. (07161) 52889 


Neue Software für den TI 99/4A: 

ALPHA DATECK VI .0 von U. Brüsseler, Datenverarbeitungsprogramm MONITOR Vl.l von J. Sundermann, Programm zum Generieren, Kor- 
von privater Adressendatei bis professioneller Datenverwaltung. Gravie- rigieren und Testen von Assembler-Programmen. Völlig überarbeitete 
rende Merkmale: 40. Zeichen pro Zeile - superschnelles Sortieren - Fassung aufgrund Testbericht in TI REVUE 5/86, mit z.B. Setzen bzw. 
Item's (Datenfelder) zu jeder Zeit änderbar — 2 Suchroutinen - super- Löschen von Speicherbereichen - Ablegen eigener und fremder Pro¬ 
schnelle Bedienung - inkl. Datei Etikettieren. Benötigte Konfiguration: gramme ab A000 — Auslesen und Änderung der CRU-Bits - Protokol- 
Extended Basic, 32 K RAM, mind. 1 Diskettenlaufwerk. lierungsmöglichkeit der gesamten Monitoraktivitäten auf Drucker oder 

Diskette. Benötigte Konfiguration: E/A-Modul, 32 K RAM, mind. 1 
Diskettenlaufwerk. 

Nicht zu vergessen: GPL-Assembler, GRAM-Karte, Public-Domain-Software für GRAM-Karte, Extended Basic II plus, 
ATRONIC-Produkte, Eprommer-Gerät, TI-MAUS, Adventure-Editor, TMS 9900 ASSEMBLER von S. Koppelmann, Modul-, 
Eprommer-, 32 K-Platinen, Spielmodule zum Ausschlachten (Schleuderpreise) 


Informationen und Preise bei: ELEKTRONIK-SERVICE Linning 37 4044 Kaarst 2 Tel. (02101) 60 32 08 






Grüß Gott - 
Guten Tag 

Die im Computerhobby immer etwas ruhigere 
Sommerzeit ist nun fast vorbei und es geht wieder 
munter mit der Computerei weiter. Dieser Herbst 
wird nach unseren Informationen noch einmal eine 
ganze Menge Neuheiten für den TI 99/4A bringen. 
Wer hätte gedacht, daß der TI 99/4A so ein langes 
Leben nach seiner Produktionseinstellung haben 
würde. Und ein Ende ist eigentlich noch nicht in 
Sicht. 

Für den Herbst dürfen wir wohl die Einführung der 
80-Zeichen-Erweiterung erwarten. Aus den USA 
und auch aus Deutschland haben wir von neuen 
Karten für die P-Box gehört, dazu gehört auch die 
digitale Ein-/Ausgabe. Neueste Gerüchte aus den 
USA sprechen auch davon, daß neben der Fa. 

Myarc noch ein Konsortium aus mehreren Herstel¬ 
lern an einem neuen Computer arbeiten. Nach un¬ 
seren Informationen hat dieses Konsortium einen 
deutschen Programmierer um Mithilfe gebeten. 

So hoffen wir, hier aus erster Hand bald weitere 
Informationen zu erhalten. - 
Unabhängig davon aber ist unser TI 99/4A wohl 
doch auch weiterhin eine interessante Maschine. 
Einer unserer Redakteure war jetzt aus beruflichen 
Gründen gezwungen, tief er. in die Welt des Personal 
Computers einzudringen, und wenn man ihn so 
reden hört, scheint er nicht sehr begeistert zu sein. 
Das DOS (wenn auch etwas langsam, so doch 
fehlerfrei), das Betriebssystem und auch den Pro¬ 
zessor des TI 99/4A hält er-immer noch für aktuell. 
So sagt er unter anderem A daß sein TI 99/4A auf 
gar keinen Fall wegen des PC arbeitslos wird. 

Die Aussichten für den TI 99/4A stehen damit 
auch in Zukunft nicht schlecht. Wir hoffen, in der 
nächsten Ausgabe von weiteren Neuheiten berich¬ 
ten zu können. Bis dahin die besten Grüße 
von Eurem ■ ' ' 

TI-REVUE-Team 

Nicht vergessen: Seid Ihr mit dem Heft zufrieden, 
sagt es weiter, seid Ihr unzufrieden, sagt es uns. 

Und: Jeden Dienstag von 15 bis 19 Uhr stehen 
Ihnen unsere Lesertelefone zur Verfügung. Für 
technische und Assembler-Fragen Tel.-Nr. 0731/ 
33220 und zu den Listings bzw. Fragen zu den 
Abonnements und dem Kassettenservice 
Tel.-Nr. 089/1298013 , 

Wichtiger Hinweis des Verlages! 

Aufgrund verschiedener Umstände sieht sich der 
Verlag gezwungen, ab dieser Ausgabe den Versand 
von Programmkassetten einzustellen. Für zurück¬ 
liegende Hefte noch vorhandene Kassetten werden 
selbstverständlich weiter ausgeliefert. 

Ab sofort - beginnend mit der Ausgabe 9/86 der 
TI-REVUE - werden die in der TI-REVUE ver¬ 
öffentlichten Listings nur noch auf Diskette 
abgegeben! 


INHALT 9/86 


DIALOG 


Tastatur prellt - 
kein Grund zur Aufgabe! 
Single-Step fehlerhaft 
Welches Kontaktspray 
ist gut für den 
Modulport? 

Was ist mit der 

80-Zeichen-Karte? 

Unkontrollierbare 

Systemabstürze 

1440 Sektoren pro 

Diskette 

Monitor anschließen? 

Wie geht das mit 
Videodat? 

Sonderbares beim 

Suca E/A ab Seite 4 


REPORT & 
SERVICE 


Clubseite: 

Sie werden wieder 

aktiv auf Seite 6- 

Assembler: 

Direkte 

Joystick-Abfrage ab Seite 7 

Nachtrag: 

Multifunktions¬ 
katalog Teil II auf Seite 9 


Seiberbauen: 
BC-Dezimalwandler — 
mit Platinenlayout 
und Schaltplänen ab Seite 10 


Seiberbauen: 

Bauen Sie sich Ihren 
Plotter selbst - 
diesmal die 

Steuerprogramme ab Seite 14 

Freeware: 

Quelldateien für 
dieGRAM- 

Karte auf Seite53 


Selbermachen: 

Ausgabebaustein 

für den TI ab Seite 56 


Compiler: 

Zwar noch einer, 
aber was für 

einer! ab Seite 58 


Nachtrag: 

Neues zum 

M-Lader auf Seite 60 

Börse: 

Zum Suchen 

und Finden ab Seite 61 


LISTINGS 


Apfelmännchen: 

Was glauben Sie, 
was der TI alles an 
Grafik bietet! 

Sie werden 

staunen ab Seite 21 


Stacheldraht: 

Überwinden Sie den 
Todesstreifen 

der DDR ab Seite 29 


Adressen: 

Schreibt eine ganze 
Diskette voll und 
sortiert dabei gleich 
automatisch ab Seite 40 


Space-Shuttle: 


Als Raumpilot 
im All 

ab Seite 43 

Monsterjagd: 
Achtung — die 
Monster schießen 


zurück! 

ab Seite 46 

Deckel drauf: 
Einmal würfeln 
reicht nicht 


aus 

ab Seite 50 


Magisches Quadrat: 

Schnelle Augen 
und gutes 
Erinnerungs¬ 
vermögen sind 

notwendig ab Seite 54 















DIALOG 


TASTATUR PRELLT - 
KEIN GRUND ZUR 
AUFGABE 

Ich finde es schade, daß 
viele Tl-User das Hand¬ 
tuch werfen, nur weil Ihre 
Tastatur prellt. Für nur 
18,90 DM kann man hier¬ 
bei Abhilfe schaffen. 

Der Elektronikversand 
,Bühler Elektronik* führt 
in seinem Angebot eine 
Tastatur, die wahrschein¬ 
lich für den in den USA 
erhältlich gewesenen 
beigen TI-99 bestimmt 
war. Der Unterschied zu 
der herkömmlichen Ta¬ 
statur besteht darin, daß 
erstens die Tasten besser 
und dadurch stabiler ge¬ 
kapselt wurden. Der 
zweite Unterschied be¬ 
steht in der Farbe. Die 
Tastenkappen sind beige 
mit dunkler Schrift. 

Diese Farbkombination 
sieht jedoch beim nor¬ 
malen TI durchaus nicht 
schlecht aus. Aufgrund 
dieses Angebotes sollte 
sich so mancher Tl-User 
überlegen, ob er sich ein 
neues System oder eine 
neue Tastatur zulegt. 
Peter Kliem, 

Erftstadt 

Vielen Dank für den nütz¬ 
lichen Hinweis. Durch 
diese neue Tastatur wer¬ 
den hoffentlich einige 
Tl-Benützer zu ihrem 
Computer zurückfinden. 
Letzte Meldung: 
Schlechte Nachricht, die 
Tastaturen sind ausver¬ 
kauft. 


SINGLE STEP 
FEHLERHAFT 


Um den E/A besser nut¬ 
zen zu können, habe ich 
mir den Single Step aus 
der TI-REVUE 3/84 zu¬ 
sammengebaut. Anschlie¬ 
ßend verdrahtete ich die¬ 
se mit der Platine aus TI- 
REVUE 6/85,anhand 
dieser man den Single 
Step in der P-Box betrei¬ 
ben kann. Leider reagier¬ 
te der so neu entstandene 
Single Step nicht in der 
gewünschten Weise. Er 


stoppt zwar bei einem 
Breakpoint, jedoch führt 
er das Programm mit dem 
Befehl ‘S* weiter, anstatt 
es im Single Step abzuar¬ 
beiten. In meinem Mon¬ 
tageplan und auf der Pla¬ 
tine konnten weder ich 
noch eine weitere Person 
einen Fehler finden. Die 
einzige Abweichung vom 
Schaltungsvorschlag stel¬ 
len die von mir verwen¬ 
deten ‘LS-‘ statt ‘ALS-* 

IC’s dar. Was muß ich tun, 
um die Schaltung so zu 
prüfen, daß ich sie an¬ 
schließend zum Laufen 
bringe? Bisher ging ich 
immer folgendermaßen 
vor: 

- Laden eines Testpro¬ 
gramms in den E/A 

- Laden und starten des 
Debuggers 

- Setzen eines Break¬ 
points im Testprogramm 

- Verlassen des Debuggers 
durch ‘QUIT* 

- Starten des Test¬ 
programmes 

Der Debugger stoppt, wie 
schon erwähnt, an der 
Stelle, an der sich der 
Breakpoint befindet. Es 
ist jedoch unmöglich, das 
Programm im Single 
Step abzuarbeiten. Der 
Debugger führt dann das 
Programm weiter und 
stoppt erst wieder am 
nächsten Breakpoint. Die¬ 
ser ist zwar dann abgear¬ 
beitet, jedoch steht auf 
der Breakpointadresse 
der ‘XOP-Befehl. 

Jeder weitere Versuch, 
das Programm anhand 
des *S‘-Befehls „weiterzu¬ 
schalten“, scheitert. 

Eine Messung am Pin 15 
des 74LS138 zeigt zu die¬ 
sem Zeitpunkt einen ne¬ 
gativen Nadelimpuls. Wei¬ 
terhin ist es mir noch 
nicht klar, ob die Schal¬ 
tung für die optische An¬ 
zeige fehlerfrei ist, da die 
Diode während des ge¬ 
samten Testbetriebes 
leuchtete. 

Während meiner Tests 
sind meine drei Karten 
(32k, Flex, Disk) kaputt- 

g ;gangen. Während des 
ntfemens des I/O-Stek- 
kers vergaß ich. die P- 
Box auszuschalten. Be¬ 
steht die Möglichkeit, daß 
bei allen drei Karten die 


selben IC’s defekt sind, 
wenn ja, welche? 

Rainer Kierdorf, 

Hamburg 

Zuerst kommen wir ein¬ 
mal zu den defekten Kar¬ 
ten. Es besteht durchaus 
die Möglichkeit, daß bei 
allen dreien der selbe De¬ 
fekt aufgetreten ist. Da 
ein solcher Defekt schwer 
zu finden ist, raten wir 
Ihnen, zuerst bei der Flex- 
Karte alle IC’s systema¬ 
tisch auszuwechseln. Sind 
Sie dann bei dem/den 
richtigen angekommen, 
so verfolgen Sie die Lei¬ 
tungen zu den anderen 
Karten. Tauschen Sie 
dann dort den /die entspre¬ 
chenden Treiber IC’s 
(LS244 und LS245) aus. 
Zu Ihrer Single-Step- 
Schaltung können wir Ih¬ 
nen nur raten, die Schal¬ 
tung zuerst einmal am 
seitlichen Port zu über¬ 
prüfen. Treten dort auch 
die selben Fehler auf so 
liegt entweder ein Bau¬ 
teilfehler oder eine 
falsche Verbindung vor. 


WELCHES KONTAKT¬ 
SPRAY IST GUT FÜR 
DEN MODULPORT? 


Bei mir haben sich wie¬ 
der einige Fragen über den 
TI angestaut, die ich gerne 
los werden möchte. 

Wozu dient der zweite 
Kassettenrekorder *CS2‘ 
beim TI? 

Ich habe, wie viele ande¬ 
re Tl-User wohl auch, 
Probleme mit den Kon¬ 
takten des Modulports. 

Um eine geeignete Reini¬ 
gung durchzuführen, legte 
ich mir das Kontaktspray 
‘Kontakt 60* zu. Können 
Sie mir sagen, ob dieses 
Spray für die Reinigung 
des Modulports geeignet 
ist? 

Welche Bücher können 
Sie mir empfehlen, die 
mir, am besten deutsch, 
den Einstieg in die Maschi¬ 
nensprache zeigen? . 
Meine Gerätschaft besteht 
aus EX-BASIC, 32k und 
BASIC-Assembler. 
Reinhard Kern, 

Afing, Österreich 


Mit dem zweiten Kasset¬ 
tenrecorder haben Sie die 
Möglichkeit, ^wei Kasset¬ 
tendateien gleichzeitig 
offen zu haben. Während 
Sie von CSI Daten lesen, 
können Sie auf CS2 Da¬ 
ten schreiben..Umgekehrt 
ist dies nicht möglich, da 
man auf CS2 nur schrei¬ 
ben kann. 

Das Kontakt spray 'Kon¬ 
takt 60’ ist insofern 
nicht geeignet, da es öl¬ 
haltig ist. Bitte verwen¬ 
den Sie zur Reinigung der 
Kontakte am besten 
‘Kontakt WL‘. 
Assemblerbücher für den 
TI sind momentan nur 
sehr wenige auf dem 
Markt. Zum Einstieg in 
die Maschinensprache 
würden wir Ihnen den 
Assemblerkurs der Fa. 
Hagera empfehlen. 


WAS IST MIT DER 
80-ZEICHEN-KARTE? 


Ich habe einige Fragen 
zum TI -99/4A, mit der 
Hoffnung, Sie können sie 
mir beantworten. 

1. ) Gibt es eine deutsche 
Übersetzung der Anlei¬ 
tung für die UCSD-Pascal- 
Karte, oder zumindest 
Literatur, die sich auf die¬ 
se Karte bezieht? 

2. ) Was ist mit der 80- 
Zeichen-Karte und wo 
kann man diese Karte 
oder einen deutschen 
Nachbau kaufen? 

3. ) Kann man den Com- 
modore Farbmonitor 
1901 mit dem TI RGB- 
Modulator benutzen und 
wie läuft das dann mit 
der 80-Zeichen-Karte? 

4. ) wie spreche ich 
‘PIO* in UCSD-Pascal an? 
Immo Hartmann, 

Berlin 

Wir werden versuchen, 
Ihre Fragen der Reihe 
nach zu beantworten, 
zu 1.) Eine deutsche 
Übersetzung existiert un¬ 
serer Meinung nach nicht. 
Es gibt jedoch eine ganze 
Reihe guter Literatur über 
UCSD-Pascal, die auch 
für den TI passen. UCSD- 
Pascal ist auf allen Com¬ 
putern nahezu gleich, so 
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daß fast alle Bücher über 
dieses Pascal verwendbar 
sind. 

zu 2.) Die 80-Zeichen- 
Karte ist eine deutsche 
Entwicklung. Es wird je¬ 
doch noch einige Zeit ver¬ 
streichen, bis diese auf 
den Markt gelangt, 
zu 3.) Der RGB-Modula- 
tor besitzt einen analo¬ 
gen RGB-Ausgang. Der 
Anschluß an den Com- 
modore Monitor wird, 
insofern dieser einen sol¬ 
chen besitzt, durchaus 
möglich sein, 
zu 3.) Hinsichtlich der 
Ansteuerung von PIO‘ 
aus Pascal sind wir über¬ 
fragt. Vielleicht findet 
sich ein Leser, der zu die¬ 
ser Frage die Antwort 
weiß. 


UNKONTROLLIERTE 

SYSTEMABSTÜRZE 


Ich habe folgende Proble¬ 
me: Trotz der Anwen¬ 
dung eines Reinigungs¬ 
sprays am Modulport tre¬ 
ten folgende rätselhafte 
Erscheinungen auf: Es tre¬ 
ten in völlig korrekten 
Zeilen Fehler auf, Zeilen¬ 
nummern werden umge¬ 
schmissen usw. Ist mein 
TI defekt? Diese Proble- * 
me traten erst nach dem 
Einbau der 32k-Erweite- 
rung auf. Vorher stürzte 
er ,normal 4 ab. Nach der 
Reinigung war für einige 
Tage Ruhe, jedoch tra¬ 
ten danach die Probleme 
wieder auf. 

Gibt es eine Möglichkeit, 
anhand eines E/A-Pro- 
grammes die Cassetten- 
recordersteuerung anzu¬ 
sprechen, wenn ja, wie? 
Was für eine Funktion hat 
die Speicheradresse 
—31804? Nach jedem 
Call Load, das auf diese 
Adresse zeigt, bewegt 
sich der Cursor weiter, 
ohne daß eine Eingabe 
erfolgte. 

Michael Kugelmann, 
Niederhausen 

Die Abstürze kommen 
nicht nur von den Kon¬ 
takten, in die die Module 
angesteckt werden, son¬ 
dern auch von dem Stek- 
ker auf der Hauptplatine. 


In diesen Stecker wird der 
Modulsteckerteil einge¬ 
steckt. Ebenfalls können 
diese Abstürze auch von 
einem Defekt in der Spei¬ 
chererweiterung kommen. 
Kontrollieren Sie noch- 
einmal alle Kontakte auf 
mögliche Kurzschlüsse. 
Der Kassettenrecorder 
wird von der CRU-Adres- 
se >002Cgesteuert. Die 
Zustände der Steuerung /.: 
können Sie dann durch 
SBO'und SBZ‘ umän¬ 
dern. Auf der Adresse 
—31804 ist der Userde- 
fined Interrupt. Wenn Sie 
auf diese Adresse einen 
Wert legen, bringen Sie 
das Betriebssystem durch¬ 
einander. Der Computer 
arbeitet dann nämlich ca. 
alle 1/50 Sekunde das 
Maschinenprogramm ab, 
das auf dieser Adresse 
steht. 


BEI DOUBLE SIDE 
1440 SEKTOREN 
PRO SEITE 


Da ich beim Kauf meiner 
Diskettenlaufwerke keine 
Gebrauchsanweisung mit¬ 
geliefert bekam, habe ich 
folgende Fragen zur Ar¬ 
beitsweise dieser Lauf¬ 
werke. 

Ich betreibe diese Lauf¬ 
werke mit meinem Cor- 
comp Diskkontroller. 
Dieser wurde auf 40 
Track/Side, Double Side, 
Double Density, einge¬ 
stellt. So kann ich auf ei¬ 
ner Diskette 1440 Sek¬ 
toren initialisieren. Kann 
ich diese entsprechend 
mit Programmen bele¬ 
gen? 

Sind bei einer solchen 
Diskette auf einer Seite 
720 Sektoren unterge¬ 
bracht oder sind alle 
1440 Sektoren auf einer 
Seite? 

Wenn alle Sektoren auf 
einer Seite sind, kann ich 
dann mit einer Diskette, 
die zwei Kerben besitzt, 
die doppelte Menge an 
Sektoren belegen? 

Leider wurde darüber in 
der TI-REVUE noch 
nichts geschrieben. 

Dann habe ich noch eine 
Bitte: Ich möchte meinen 
Drucker, einen Seikosha 
GP 500 CPC, an die 


RS232-Schnittstelle an¬ 
schließen. Es kommt mir 
jedoch so vor, als ob da¬ 
zu zu wenig Kabel vor¬ 
handen wären. 

Günter Bischoff, 

Stuttgart 

Bei Ihren Laufwerken be¬ 
schreiben Sie mit dem 
Cor comp Controller die 
Disketten doppelseitig, 
d.h., auf jeder Seite be¬ 
finden sich 720 Sektoren. 
Diese 1440 Sektoren ste¬ 
hen Ihnen dann vollkom¬ 
men zur Datenspeiche¬ 
rung zur Verfügung. 

Ihr Drucker verfügt wahr¬ 
scheinlich über keine 
RS232,sondern über eine 
Centronics-Schnittstelle. 
Ist dies der Fall, so müs¬ 
sen Sie den Drucker mit 
der PIO an der RS232- 
Karte verbinden. 


MONITORANSCHLUSS 
AN DEN TI 


Ich besitze einen Farb¬ 
monitor ‘Sanyo CD 
3220N‘ und möchte die¬ 
sen an meinen TI 99/4A 
anschließen. Leider ver¬ 
fügt dieser Monitor nicht 
über einen Scart-Stecker, 
sondern ist mit einem 
achtpoligen Stecker ver¬ 
sehen. Da mir das Aus¬ 
gangssignal aus der Kon¬ 
sole nicht bekannt ist, 
bitte ich Sie um Ihre 
Hilfe: 

Gibt es einen geeigneten 
RGB-Modulator für den 
TI-99/4A zu kaufen, und 
wenn ja, wo? 

Haben Sie ein Schaltbild, 
mit dem man sich selbst 
einen solchen Modulator 
bauen kann? 

Wolfgang Stolz, 

Hamburg 

Ihr Monitor der Firma 
Sanyo besitzt eine RGB- 
TTL Eingang. Dies ist 
beim TI nicht gebräuch¬ 
lich. So sind auch die von 
den verschiedenen Händ¬ 
lern angebotenen RGB- 
Modulatoren nicht dafür 
geeignet. Ein RGB-TTL- 
Signal ist ebenfalls anders 
aufbereitet als das mehr 
verbreitete RGB-Analog- 
Signal. Leider können 
wir Ihnen mit einem 


Schaltbild für einen pas¬ 
senden Modulator nicht 
dienen. 


DEN RICHTIGEN 
MONITOR FÜR DEN TI 


Ich möchte mir für mei¬ 
nen TI einen mono¬ 
chromen Monitor zule¬ 
gen. Da ich nicht weiß, 
welche Signale am TI her¬ 
ausgeführt werden, ist 
mir völlig unklar, wie man 
ein solches Gerät an¬ 
schließt. Ist ein einfaches 
Kabel ausreichend, oder 
kommt man um zusätz¬ 
liche Elektronik nicht 
herum? 

Der TI produziert in der 
Regel dunkle Schrift auf 
hellem Hintergrund. 

Läßt sich dies hardware- 
mäßig umgehen? 

Thomas Kneisel, 
Kleinostheim 

Zum Anschluß eines nor¬ 
malen, einfarbigen Moni¬ 
tors benötigen Sie nur 
ein Kabel: Auf Pin 2 der 
Ausgangsbuchse am Com¬ 
puter zum Modulator 
liegt das Y-Signal, auf 
Pin 6 Masse (‘GND'). 

Die Färb dar Stellung kön¬ 
nen Sie nur softwaremä¬ 
ßig umstellen. So störend 
wirkt sich dies jedoch 
nicht auf dem Monitor 
aus. 


VIDEODAT 
AM TI-99/4A 


Da einige Zeit nach dem 
Einschalten der gesamte 
Bildschirm zitterte, durch¬ 
lief und schwarz ver¬ 
schmierte, habe ich die 
Video-Endstufe unter¬ 
sucht. Die Verursacher wa¬ 
ren die Transistoren 311/ 
3906 und 24G/2222. 

Diese sind aber im Handel 
nicht zu erhalten. Wie hei¬ 
ßen die handelsüblichen 
Bezeichnungen oder wo 
sind diese Transistoren 
sonst erhältlich? 

Ich möchte gerne ‘Video- 
dat‘ (WDR-Computer- 
Club) am ‘MBI-TI-99/4A 


auf Centronics 4 anschlie¬ 
ßen. Die MBI-Beschreibung 
gibt leider keinen Auf¬ 
schluß darüber, ob es nur 
für Output oder auch 
zum Input verwendbar ist. 
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In der Videodat-Beschrei- 
bung steht, eine RS232- 
Schnittstelle sei , und das 
ist das MBI doch schließ¬ 
lich. Der Computer läßt 
jedoch keine Buchstaben 
auf dem Bildschirm er¬ 
scheinen, sondern meldet 
sich immer mit ‘I/O 
ERROR IN 

Hans-Jürgen Püttmann, 
Obernausen 

Die handelsüblichen Be¬ 
zeichnungen für die Tran¬ 


sistoren lauten 2N3906 
und 2N2222. Unter die¬ 
ser Bezeichnung sind sie 
bestimmt in jedem Elek¬ 
tronikshop erhältlich. 
Beim MBI kommt es dar¬ 
auf an, welche Ausfüh¬ 
rung Sie davon besitzen. 
Das MBI-Centronics- 
Int er face benutzt zu¬ 
nächst auch eine serielle 
Datenübertragung, bevor 
es auf parallel übergeht. 
Das RS232 MBI dagegen 
kann auch Daten empfan¬ 


gen* Da Sie das Centro- 
nics-Interface besitzen, 
gibt es keine Möglichkeit, 
Daten zu empfangen. 


SONDERBARES IM 
SUCA EDITOR/ 
ASSEMBLER 


Ich möchte Sie nur dar¬ 
auf hinweisen, daß das 
Spiel ‘Freddy‘ nicht mit 
dem E/A der Firma SUCA 
läuft. Das Programm mel¬ 


det sich nach kurzer Zeit, 
daß die Diskette eine 
Raubkopie sej. Dies tritt 
selbst dann auf, wenn 
dies nicht der Fall ist. 
Mike Rohrmoser, 

Essen 


Vielen Dank für den Hin¬ 
weis. Wahrscheinlich 
klären sich nun einige 
Ungereimtheiten, die die 
User mit dem Spiel 
hatten. 


CLUB¬ 

ECKE 

Auch dieses Mal darf die Seite, 
auf der sich neugegründete oder 
schon bestehende Tl-Userclubs 
vorstellen können, nicht 
fehlen. Die Einleitung bildet 
die in Stuttgart entstandene 
Gruppe 'Tl-Club Errorfree'. 

Hach langem Warten auf eine 
TI-Club gründun g im Großraum 
Stuttgart und Pforheim haben 
wir uns am 21. 6.1986 entschlos¬ 
sen, einen eigenen Tl-Club zu 
gründen. 

Nach langem Überlegen einigten 
wir uns auf den Namen: 

Tl-Club Errorfree 
Wir sind bisher zwar nur zwei 
Mitglieder, suchen jedoch weitere 
Mitglieder (auch Anfänger mit 
- Extended Basic). 

Aktivitäten sind geplant: 

1. Programmpool für Mitglieder 

2. Informationsaustausch 

3. Problemlösungen 

4. Tel. oder schriftliche Kontak¬ 
te (für später sind Clubtreffen 
geplant). 

5. Später bei genügender Beteili¬ 
gung eine Clubzeitung. 

Wir haben zwei komplette Anla¬ 
gen zur Verfügung, wobei eine 
Anlage zusätzlich über DFÜ 
verfügt. 

Info gegen 80 Pfennig Briefmar¬ 
ke oder telefonisch 
Kontaktadressen: 

Manfred Kraus 
Vaihinger Str. 64 
7132 Illingen / Württemberg 
Tel.: 07042/24415 
oder 

Heinz Lücke 
Mörikestraße 30 
7147 Hochdorf/Enz 
DFÜ-Tel.: 07042/77629 


Den Anschluß daran bildet der 
Club ‘2099er‘, der seine Aktivi¬ 
täten schon seit längerer Zeit 
ausübt. Diese, auch im Sommer 
aktive, Gruppe bietet die inzwi¬ 
schen schon dritte Ausgabe 
ihrer Clubzeitung an. 

Nun ist es wieder soweit, die 
dritte Ausgabe der 2099er ist 
fertig! Diesmal gibt es auch noch 
ein paar Neuerungen. So kommt 
der Inhalt jetzt nicht nur, aber 
auch, vom Club der Toten son¬ 
dern vom Rex Soft Club! 

Die 2099er ist wieder voll mit 
Informationen, Berichten, 

Listings. Der ‘Preis“ ist der alte 
geblieben, Ihr erhaltet die 2099er 
für zwei 50-Pfg.-Briefmarken für 
Porto und Verpackung. 

In der letzten TI-REVUE unter¬ 
stellte man uns Clubs, in der 
Sommerzeit wenig aktiv zu 
sein, aber das stimmt nicht, zu¬ 
mindest was den CDT und den 
Rex Soft Club betrifft. 
Informationen über diese beiden 
Clubs und ihre Aktivitäten stehen 
in der 2099er Nr. 3, die Ihr Euch 
unbedingt besorgen müßt, lieber 
heut als morgen. 

Unsere Adresse: 

2099er 
Am Hang 5 
2054 Geesthacht 

Das Finale der Clubseite wird von 
einem überaus aktiven Club, 
dem‘TI 99’er Workshop Rhein¬ 
land 1 , gestaltet. Dieser plant ernst¬ 
haft die Ausführung eines natio¬ 
nalen Treffens aller Tl-Clubs in 
Deutschland. Ob dieses jedoch 
zustande kommt, entscheidet 
unter anderem das Interesse aller 
bisher bestehenden Arbeitsgrup¬ 
pen. Ebenfalls stellt der ‘TI 99’er 
Workshop Rheinland 4 das geplan¬ 
te Programm dieses nationalen 
Treffens vor. 

Angeregt von unseren hollän- 
dischen Freunden, die am 1 7.5. 
in Ede, Holland ihr nationales 


TI-Treffen veranstalteten, sowie 
vom Ergebnis einer Umfrage auf 
einer Demo-Show in Wuppertal, 
haben wir. der TI 99er Work¬ 
shop Rheinland, uns entschlos¬ 
sen, bei entsprechendem Inter¬ 
esse der deutschen Tl-Clubs und 
Tl-User, ein solches nationales 
Treffen gegen Ende des Jahres 
auch in der Bundesrepublik 
Deutschland zu organisieren. 

In der Umfrage in Wuppertal 
sprachen sich samt und sonders 
alle Befragten für eine solche Ver¬ 
anstaltung aus. Auch die Clubs, 
mit denen wir bis jetzt Kontakt 
aufgenommen haben, äußerten 
sich sehr positiv diesen Plänen 
gegenüber. 

Es ist geplant, diese Veranstal¬ 
tung (der zentralen Lage wegen) 
in Köln, Frankfurt oder Düssel¬ 
dorf stattfinden zu lassen, wobei 
Köln aus naheliegenden Gründen 
favorisiert ist. Die Stadtverwal¬ 
tung der Stadt Köln hat sich 
auch schon positiv zu diesem Vor¬ 
haben geäußert. Da die Ausrich¬ 
tung eines solchen Treffens doch 
eine ganze Menge Geld erfordert, 
haben wir schon Kontakt mit ei¬ 
nigen Firmen aufgenommen, um 
von dort eventuell einen Teil des 
Werbeetats locker zu machen. 

Hier die Adresse an die Ihr Euch 
wenden könnt: 

TI 99er Workshop Rheinland 
Dept. Allgemein & Software 
c/o Mike Heuser 
Karl-Marx-Allee 18 
5000 Köln 71 

Tel. 0221/7039 79 v. 19-22 Uhr 
Hier noch ein kleiner Tip am Ran¬ 
de. Unter der Nummer 0228/ 
658232 ist ab sofort die Mailbox 
des TI 99er Workshop Rheinland, 
vorerst im Test(Hand)betrieb 
online. Ihr könnt dort von 17 — 
22' Uhr an rufen. Sysop Achim 
freut sich auf Euren Anruf. 

Seid aber bitte nicht sauer, wenn 
es doch mal einen Fehler im 
Programm geben sollte. 
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JOYSTICK-ABFRAGE 
AUS ASSEMBLER 

In der letzten Zeit wurde ich einige Male darauf angesprochen, 
wie man beim TI 99/4A den Joystick-Port direkt aus Assembler abfragen 
könne, ohne Umweg über die Hilfsroutine KSCAN. Bevor ich jedoch 
dazu komme, noch eine Anmerkung zu meinem Artikel „Wie findet der 
TI seine Programme" in der TI-REVUE 7/86. 


Ein aufmerksamer Leser hat mich 
darauf aufmerksam gemacht, daß 
einmal auch im ROM des Modul¬ 
portes ein Pointer zu einer Pro¬ 
grammliste'stehen kann und weiter 
das Byte mit der Versionsnummer 
>6001 durchaus vom bisherigen 
Betriebssystem beachtet wird. Ist 
hier nämlich bei einem GROM- 
Modul das höchstwertige Bit ge¬ 
setzt, so führt der TI 99/4A noch 
vor Erscheinen des Titelbildes das 


einfachen Bau von Modulen. So hat 
Texas Instruments dies dann auch 
bei späteren Modellen des TIO 99/4A 
(Bildschirmmeldung Copyright 
1983) wieder entfernt. Auf diesen 
laufen die reinen ROM-Module 
nicht mehr. 

Nun aber zurück zur Joystick-Ab¬ 
frage. Um hier in Assembler ent¬ 
sprechend Vorgehen zu können, müs¬ 
sen wir uns erst einmal etwas mit 
den Innereien des TI 99/4A beschäf- 


leitung ist für die Alpha Lock Taste 
vorhanden, die soll uns aber erst 
später interessieren. 

Diese Steuerleitungen sind nun je¬ 
weils mit mehreren Tasten verbun¬ 
den (im Joystick mit jeweils allen 
Kontakten). Um nun die entspre¬ 
chenden Tasten bzw. Joystick-Kon¬ 
takte herausfiltem zu können, sind 
dafür 9 Eingangsleitungen vorhan¬ 
den, jeweils ebenfalls mit mehreren 
Tasten, aber natürlich anderen Ta¬ 
sten als die Steuerleitungen, ver¬ 
bunden. Für die Joysticks werden 
davon nur 5 benötigt. Aber zu den 
genauen Angaben kommen wir spä¬ 
ter noch. Zuerst müssen wir uns ein¬ 
mal damit beschäftigen, wie wir die 
einzelnen Steuerleitungen ein¬ 
schalten. 

Dieses Einschalten erfolgt über ganz 
normale CRU-Befehle. Wie bekannt, 
muß dazu in RI 2 die CRU-Basis- 
adresse vorhanden sein. Für unsere 
Steuerleitungsregister ist dies die 
Adresse >0024. Wie wir vorhin ge¬ 
sehen haben, müssen wir jeweils ins¬ 
gesamt 3 Bits bestimmen. Es stehen 
uns damit die folgenden 8 verschiede¬ 
nen Werte zur Verfügung, welche je- 



Programm in diesem Modul (über 
GROM-Adresse >6010) aus. Dies 
ist natürlich richtig, aber in mei¬ 
nem Bericht habe ich nur vom 
DSRLNK des Betriebssystems gere¬ 
det, und dieses hat mit dieser Funk¬ 
tion nichts zu tun, sondern diese ist 
extra in die Powerup Routine des 
GROM 0 einprogrammiert. Ebenso 
übrigens wie die Möglichkeit der 
reinen ROM-Module. Letztere ist 
wohl von einem cleveren Program¬ 
mierer eingesetzt worden, denn dies 
ermöglichte Fremdherstellern den 


tigen; insbesondere natürlich mit der 
Tastaturabfrage. 

Diese Tastatursteuerung geschieht 
im wesentlichen über einen TMS 
9901, einen programmierbaren Bau¬ 
stein, der über CRU-Adressen ange¬ 
sprochen wird. Dieser IC besitzt nun 
diverse Eingänge und einige Ausgän¬ 
ge. Drei dieser Ausgänge werden be¬ 
nutzt, um über einen zusätzlichen 
Adressdekoder insgesamt 6 Steuer¬ 
leitungen für die Tastatur und zwei 
Steuerleitungen für die Joysticks zu 
betätigen. Eine zusätzliche Steuer- 


weils mit folgenden Tasten verbun¬ 
den sind: 

0: Enter Shift Leerstelle = 
Function Control 
1: 09SL>2WX 
2: I 8 DK< 3 E C 
3: U7FJM4RV 
4: Y6GHN5TB 
5: P 0 A ; / 1 Q Z 
6: Joystick A 

7: Joystick B 

Ich hoffe, das stimmt alles, denn 
außer den Joysticks habe ich die Ta¬ 
staturabfragen noch nicht selber 
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ausprobiert, sondern die Werte hier 
wurden aus Schaltbildern ermittelt. 
Deshalb habe ich die Überschrift 
auch nur bezogen auf die Joysticks 
gewählt. 

Vorerst bleiben wir also bei den Joy¬ 
sticks. Um diese abzufragen, müssen 
wir also erst einmal die richtigen 
Steuerleitung aktivieren. 

Dies erfolgt für Joystick A: 

LI R12,>0024 
LI R4,>0600 
LDCR R4,3 

Achtung: Da nur 3 CRU-Bits ge¬ 
schrieben werden, ist LDCR ein 
Byte-Befehl und so muß der Kenn¬ 
wert in R4 in das höherwertige 
Byte geschrieben werden. 

Für Joystick B gilt dementsprechend 
LI RI 2, >0024 
LI R4p>0700 
LDCR R4,3 

Nun müssen wir uns noch mit dem 
Abfragen der einzelnen Kontakte 
beschäftigen. Auch hier sind ja wie¬ 
der verschiedene Tasten der Tasta¬ 
tur und die Joystick-Kontakte zu¬ 
sammengeschaltet. Auf den folgen¬ 
den CRU-Adressen sind jeweils die 
angegebenen Tasten verbunden: 
>0006: / N = > < M 

Feuerknopf 

>0008: ; H Leerstelle L K J 

Links 

>000A: P Y Enter O I U 
Reehts 

>000C: 0 6 9 8 7 Abwärts 

>000E: 1 5 Funktion 2 3 4 

Aufwärts und Alpha 
Lock 

>0010: A G Shift S D F 
>0012: QT Control WER 
>0014: ZBXCV ■ 

- Wir benötigen für die Joysticks also 
nur die CRU-Adressen> 0006 bis 
>000E und jetzt müssen wir wieder 
etwas aufpassen, denn bekanntlich 
muß beim TI 99/4A ja die CRU- 
Basisadresse in RI2 anders errech¬ 
net werden als für die 1-Bit-Befehle 
TB SBO und SBZ. Wir können da¬ 
her die Abfrage auf verschiedene 
Weise reaüsieren. Zuvor aber müssen 
wir noch kurz den Wert bestimmen, 
den eine gedrückte Taste annimmt, 
wenn die passende Steuerleitung ein¬ 
geschaltet ist. ■ 

Die Steuerleitungen haben normaler¬ 
weise den Wert H, also ca. 4 bis 5 V. 
Wenn eine selektiert wird, wie wir 
es oben für die Joystickleitungen ge¬ 
macht haben, geht sie auf den Wert 
L, d.h., auf ca. 0 Volt. Die Taste 
verbindet den Eingang des TMS 
9901, der uns zum Abfragen dient, 
dann mit der Steuerleitung, d.h.,bei 
der entsprechenden CRU- Ab frage 
ist das Bit nicht gesetzt, wenn die 
Taste gedrückt ist. Ist die Taste 
nicht gedrückt, ist das Bit 1. 


>0010 

>0012 

>0014 


Fragen wir nun also unseren Joy- E 

stick ab. Dabei soll erst einmal jede v 
Taste einzeln abgefragt werden: E 

CLR RI2 »Basisadresse 0 d 

TB 3 »Feuerknopf s 

JNE FEUER*Sprung gedrückt c 

TB 4 »Links t 

JNE LINKS a 

TB 5 »Rechts g 

JNE RECHTS I 

TB 6 »Runter r 

JNE RUNTER 1 

TB 7 »Hoch s 

JNE HOCH . } 

Die Label für die Sprünge sind dabei i 
je nach Programm entsprechend aus¬ 
zuführen. ] 

Nun können wir aber auch, um nicht 1 
immer die CRU-Adresse in RI2 än¬ 
dern zu müssen, das ganze mit der i 

Basisadresse für die Steuerleitungs- < 

Selektierung durchführen. Dies sähe 
dann so aus: 

LI RI 2,>0024 

TB -15 »Feuerknopf 

JNE FEUER*Sprung gedrückt 

TB -14 »Links 

JNE LINKS 

TB -13 »Rechts 

JNE RECHTS 

TB -12 »Runter 

JNE RUNTER 

TB -11 »Hoch 

JNE HOCH . 

Nun läßt sich das alles natürlich noch 
eleganter lösen, denn warum sollen 
wir jegliches Bit einzeln testen. Die 
folgenden Zeilen zeigen, wie sich 
mit einem Schritt alle Tasten einie¬ 
sen lassen: 

LI RI2,>0006 »Basisadresse 

CLR R4 
STCR R4,5 

Nun sind im höherwertigen Byte von 
R4 die Bits entsprechend den gedrück¬ 
ten Tasten gesetzt, nach folgendem 
Muster: 

MSB LSB 

8 7 6 5 4 3 2 1 
000UDRLF 
U=Hoch, D=Abwärts, R=Rechts, 

L= Links und F=Feuerknöpf 


Das Register wird dann im Programm 
wie gewünscht weiterverarbeitet. 

Hier bieten sich dann ganz beson¬ 
ders die Schiebebefehle an, um ent¬ 
sprechende Sprünge auszuführen, 
oder die Maskenvergleiche COC 
bzw. CZC. Damit lassen sich dann 
auch Abfragen nach zwei zusammen 
gedrückten Tasten verwirklichen. 
Bleibt uns zum Schluß nun doch 
noch eine gezielte Anfrage der 
Tastatur. Bekanntlich geht ein Joy¬ 
stick nicht “hoch“, wenn die Alpha- 
Lock-Taste gedrückt ist. Dies ist 
übrigens durch die Schaltung des 
TI 99/4A bedingt und kann soft¬ 
waremäßig nicht geändert werden. 

Es bietet sich hier aber an, diese 
Taste getrennt abzufragen und bei 
gedrückter Alpha-Lock-Taste eine 
entsprechende Meldung auf den 
Bildschirm zu zaubern. 

Die Steuerleitung der Alpha-Lock- 
Taste ist das CRU-Bit >002A. Also 
können wir diese Taste wie folgt 
abfragen: 

CLR R12 

SBZ >0015 »Steuerleit, ein 

NOP »Zeitverlust 

TB 7 

JEQ ' NAL»Sprung wenn nicht 
»Hier Anzeige einbauen 
NAL SBO >0015 
»Weiter im Programm 
Achtung: Auf gar keinen Fall am 
Ende das SBO >0015 vergessen, 
sonst kommt es bei weiteren Abfra¬ 
gen bei gedrückter Alpha-Lock- 
Taste zu ziemlichem Unfug. 

Das war es dann für heute erst ein¬ 
mal wieder. Auf unserer kleinen 
Zeichnung ist zu sehen, wie man 
anstelle des Joysticks auch einzel- 
i ne Taster zur Dateneingabe verwen- 
k-den kann. Diese Taster werden an 
den Joystickport angeschlossen. 

Ich selber benutze so etwas für ein 
Rundenzähl- und Zeitmeßprogramm 
für ferngesteuerte Modellrennwagen. 
Hier hat sich der TI seit Jahren als 
zuverlässige Hilfe bewährt. 

Heiner Martin 
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NACHTRAG ZUM 
MULTI FUNKTIONS 
KATALOG 


Bei diesem Programm hat 
uns die Herstellung 
ein Schnippchen geschla¬ 
gen: Es wurde ein ganzer 
Abschnitt aus dem Manu¬ 
skript weggelassen. Dieser 
ist aber zum Verständnis 
enorm wichtig und so 
hier nochmal der entspre¬ 
chende Text: 


MIC-GEHEIMNISSE 


MIC ist ein Extended- 
Basic-Programm mit dar¬ 
in „versteckten“ Maschi¬ 
nensprache-Unterpro¬ 
grammen (Lesen und 
Schreiben im VDP-RAM 
und Lesen und Schreiben 
von Diskettensektoren). 
Die Unterprogramme wer¬ 


den also weder durch 
CALL-LOAD-Aufrufe 
noch durch Poken aus 
DATA-Zeilen geladen. 

Sie sind auf ihren Plätzen, 
sobald das Basicpro- 
gramm geladen ist. Damit 
die Unterprogramme in ei¬ 
nem von der CPU direkt 
erreichbaren Speicherbe¬ 
reich liegen, muß eine 
Speichererweiterung an¬ 
geschlossen sein. 

Derartige Programme fin¬ 
det man in letzter Zeit 
häufiger. Deshalb für In¬ 
teressierte hier ein paar 
Hinweise darauf, wie man 
so etwas macht. Im Ur- 
Basicprogramm werden 
einige Zeilen vorgesehen, 
die nur als Platzhalter die¬ 
nen, am einfachsten 


Kommentarzeilen. Der so 
reservierte Platz im Spei¬ 
cher muß ausreichend sein, 
die Unterprogramme auf¬ 
zunehmen. In MIC waren 
die Zeilen 180, 190 und 
200 ursprünglich lange 
Kommentarzeilen. Das 
vorbereitete Basicpro- 
gramm wird geladen, und 
mit Hilfe von DEBUG 
wird nachgesehen, ab wel¬ 
cher Adresse diese Platz¬ 
halter im Speicher stehen. 
Dann kann mittels einer 
entsprechenden AORG- 
Anweisung im Assembler¬ 
programm dafür gesorgt 
werden, daß den Unterpro¬ 
grammen die richtigen 
Plätze zugewiesen werden. 
Mit DEBUG wird weiter¬ 
hin geschaut, auf welchen 
Speicherplätzen in der 
Zeilenliste die Adressen 
der Platzhalter-Zeilen ste¬ 
hen und welche Adresse 
eine Ersatzzeile hat, die 
formal statt der über- 
schriebenen Platzhalter- 
Zeilen dienen kann. Als 
ein solcher Ersatz dient in 
MIC die kurze Kommen¬ 
tarzeile 160. Die Adressen 


nach den Platzhalter-Zei¬ 
lennummern (in MIC 180, 
190 und 200) werden spä¬ 
ter mit der Adresse der 
Ersatzzeile (in MIC 160) 
überschrieben. 

Es muß dafür gesorgt wer¬ 
den, daß die Unterpro- . 
gramme bei CALL-LINK- 
Aufrufen auch gefunden 
werden. Deshalb wird vom 
Basicprogramm aus die 
REF/DEF-Tafel am Ende 
des LOW MEMORY durch 
Poken erstellt. Die An¬ 
fangsadresse der REF/ 
DEF-Tafel muß nach 
Adresse 8196 geschrieben 
werden. In MIC geschieht 
das alles in Zeile 280 un¬ 
ter Verwendung der 
DATA-Zeilen 220 und 
230. 


Beim Entstehungsprozeß 
sollte nach Änderungen 
im Ur-Basicprogramm die¬ 
ses wieder in eine im 
Speicher wohlgeordnete 
Form gebracht werden, 
z.B. mit der Anweisungs¬ 
folge 
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Centronic - Stecker 

36 pol. 


Pfostenstecker 16 pol. 



DRUCKER- 

ANSCHLUSS 


Immer wieder erreichen 
uns Anfragen nach der 
Ausführung von An¬ 
schlußkabeln für die ver¬ 
schiedenen Drucker. 

Die hier vorgestellten 
Verbindungen sind zwar 
für zwei bestimmte 
Druckertypen, können 
aber durchaus allgemein 
verwendet werden. Der 
Anschluß der EP 44 zeigt 
die Verbindung mit der 
RS232-Schnittstelle des 
TI-99/4A und das Kabel 
für den HR-5 ist für die 
PIO gedacht. 
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BC-DEZI MAL- 
WANDLER 


Der Einstieg in die Hardware wird dem Besitzer des TI 99/4A nicht 
besonders leicht gemacht. Will man z.B. Werte oder auch nur Schalter¬ 
stellungen ins Programm einiesen, so stößt man bei den vorhandenen Ports 
schnell an einige Grenzen. Der einzige herausgeführte und direkt dafür 
zu verwendende Eingang ist der Joystick-Port. Doch pro Programmzelle 
läßt sich nur ein Schalter abfragen (Joyst. 1 oder Joyst. 2). Im Geschäft zu 
erstehende Erweiterungen, die solche Möglichkeiten bieten, 
sind recht teuer. 


Doch auch die „nackte“ Konsole 
verfügt noch über einen Port, der 
für solche Zwecke geeignet ist, den 
Key-Board-Port. Er ist allerdings 
nicht aus dem Gehäuse herausge¬ 
führt. Ihn wollen wir bei der hier 
vorgestellten Schaltung verwenden. 
Um an ihn heranzukommen, müs¬ 
sen wir wohl oder übel das Gehäu¬ 
se öffnen. Ist dies geschehen, so 


Baugruppen (Hauptplatine, Tasta¬ 
turplatine und Netzteil) aus dem 
Gehäuse auszubauen. 

Der Key-Board-Port besitzt 15 
Pins, deren Numerierung auf dem 
Stecker abzulesen ist. Benötigt 
werden davon 12 Anschlüsse, doch 
ist es zweckmäßig alle 15 und zu¬ 
sätzlich die Masse, die man sich 
vom Blechgehäuse der Hauptplati- 


Im Gehäuse ist für Einbau und Ver¬ 
drahtung genügend Pla£z vorhanden. 
Als Einbauposition für den Stecker 
habe ich die linke Seitenwand 
schräg über dem Joystickanschluß 
gewählt (ca. 15 mm von oben und 
ca. 55 mm von hinten). 

Bei der Ausführung der Verdrah¬ 
tung sind der Phantasie keine Gren¬ 
zen gesetzt. Man kann z.B. die 
Flachbandleitung von der Tastatur¬ 
platine ablöten und die Anschlüsse 
auf eine kleine Verteilerplatine le¬ 
gen, von der dann die Leitung für 
Tastatur und Stecker abgehen. 
Wichtig ist dabei nur die Einbehal¬ 
tung der Reihenfolge und Bezeich¬ 
nung der Anschlüsse, d.h., An¬ 
schluß 1 am Key-Board-Port muß 
auch auf dem Stecker Anschluß 1 
sein usw. Die Masse wird auf einen 
der freien Anschlüsse des Steckers 
gelegt. An diesen Port läßt sich z.B. 
auch ein separater Tastenblock für 
die Eingabe von Zahlen anschließen. 

FUNKTIONSBESCHREIBUNG 

Das Grundprinzip der Wandlerschal¬ 



braucht man nur noch die Verbin¬ 
dungsstelle zwischen Hauptplatine 
und Tastaturplatine zu suchen. 

Die Verbindung erfolgt über eine 
15adrige Flachbandleitung, die an 
der Tastaturplatine angelötet und 
mit der Hauptplatine über einen 
15poligen Stecker verbunden ist. 
Dieser Stecker läßt sich ohne wei¬ 
teres abziehen, allerdings sind da¬ 
für und für spätere Arbeiten alle 


ne oder direkt vom Netzteil holt, 
herauszuführen. Dadurch sind dann 
auch für spätere Anwendungen alle 
nötigen Anschlüsse von außen zu 
erreichen. 

Benötigt wird also ein Stecker mit 
mindestens 16 Anschlüssen (z.B. 
Steckverbinder SUB D 25polig), 
der ins Gehäuse eingebaut und mit 
dem Key-Board-Port verbunden 
wird. 


tung ist recht einfach. Ihr Eingang 
besteht aus den Anschlüssen A, B, 

C und D. Es können nun z.B. 4 
Schalter angeschlossen (+5V=ge- 
schlossen; 0 V=geöffnet) oder Zah¬ 
lenwerte von 1 — 9 im BCD-Code 
(A = 2°=1; B = 2 1 =2; C = 2 2 =4; 

D = 2 3 =8) angelegt werden. Die an¬ 
gelegten Potentiale gelangen an den 
IC 7442, der ein BCD-Dezimal De¬ 
coder ist. Dieser Baustein hat 10 
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Ausgänge. Liegt an den Eingängen 
der Wert 0 an, so liegt der O-Aus- 
gang auf Masse. Die grüne - an ihm 
angeschlossene Leuchtdiode zeigt 
durch ihr Licht an: Keine Eingabe 
bzw. alle Schalter offen. 

Liegt am Eingang z.B. der Wert 4 an 
(0+5 V bzw. Schalter C geschlos¬ 
sen), so liegt der Ausgang 4 auf 
Masse. Dieses Potential wird durch 
einen Inverter (IC 7404) in ein 
High=+5 V umgewandelt und ge¬ 
langt an den Spannungsverteiler 
R 13/R 23. 

Der Transistor T 4 schaltet durch 
und verbindet die Anschlüsse 13 
und 2 des Key-Board-Ports, die sonst 
durch die Taste D der Tastatur ver¬ 
bunden würden. Bei der Abfrage 
der Tastatur über CALL KEY wird 
der dem Buchstaben D zugeordnete 
Wert ins Programm übergeben. 

Es gibt nun 2 Möglichkeiten, um im 
Programm wieder den angelegten 
Zahlenwert (den betätigten Schal- . 
ter), also in diesem Beispiel die 4 
(Schalter C) zu erhalten: 

1. per Hardware 

Der Schalter S 2-CTRL auf der 


im Bereich von 1 — 9 gleich 
richtig ins Programm übernom¬ 
men. Bevor Eingaben über die 
Tastatur erfolgen, ist der Schalter 
S 2-CTRL zu öffnen, um die 
Funktion der Tastatur nicht zu 
behindern. 

2.)per Software 

Will man die hier vorgestellte 
Schaltung nur in der noch später 
erläuterten Grund Version bauen, 
so fragt man den Port mit dem 
Befehl CALL KEY (O, K, S) ab 
und zieht von dem nun im 
ASCII-Code übernommenen 
Wert in einer weiteren Programm¬ 
zeile den Wert 64 ab. Man erhält 
so ebenfalls den ursprünglich 
angelegten Wert. 

LUXUS- UND GRUNDVERSION 
DER SCHALTUNG 

Die Grundversion ist im oberen Teil 
des Schaltplanes dargestellt. Sie er¬ 
füllt schon voll die beschriebene 
Funktion. Jedoch müssen die über¬ 
nommenen Werte noch, wie oben 


hält neben der Grundversion noch 
einige recht vorteilhafte Zusätze. 

Mit dem Schalter S 2 lassen sich <; 
Kontakte der Tasten CTRL und 
FCTN betätigen. Das Schließen vo. 

S 2-CTRL bewirkt, wie schon be¬ 
schrieben, die rein hardware-mäßige 
Umwandlung der Werte. 

Betätigt man S 2-FCTN, so wird 
beim Anlegen von +5 V an den Ein¬ 
gang “CLEAR“ das Programm un¬ 
terbrochen. Dieser Eingang der Schal¬ 
tung läßt sich z.B. zum Anschluß 
einer “Run-Stop-Taste“ verwenden 
oder ermöglicht es, den Computer 
im Programmablauf durch selbst 
entwickelte Peripherie zu stoppen. 
Läßt man den Schalter S 2-FCTN 
geöffnet, so läßt sich beim Anlegen 
von +5 V an den Eingang “CLEAR“ 
der Wert, welcher der Taste 4 zu¬ 
geordnet wird, ins Programm einie¬ 
sen. Er kann dann spearat abgefragt 
und z.B. als Fehlermeldung der 
Peripherie herangezogen werden. 

Der untere Teil des Schaltplanes 
zeigt einen weiteren Zusatz der 
Luxusversion. Er stellt eine dezima¬ 
le Anzeigeeinheit der dual am Ein- 



Platine wird nach dem Starten 
des Programms geschlossen. Die¬ 
ser Schalter verbindet die An¬ 
schlüsse 4 und 6 des Key-Board- 
Ports und simuliert die Betäti¬ 
gung der Taste CTRL. 

Mit der Programmzeile CALL 
KEY (4, K, S) wird für K, in 
diesem Beispiel, der Wert 4 ge¬ 
speichert. 

Ebenso wird jeder andere Wert 


beschrieben, im Programm „verar¬ 
beitet“ werden oder man baut sepa¬ 
rat einen Schalter ein, der die Pins 
4 und 6 des Key-Board-Ports ver¬ 
bindet. Die für den Aufbau der 
Grundversion benötigten Bauteile 
lassen sich aus dem oberen Teil des 
Schaltplans ersehen. Es werden 
dann nur diese Teile der Stückliste 
benötigt. 

Die Luxusversion der Schaltung ent- 


gang anliegenden Werte, dar. Auf 
dieser Anzeige lassen sich Werte 
jederzeit ablesen. Man braucht sie 
also nicht extra durch “PRINT“ 
auf dem Bildschirm abzufragen. 

AUFBAU 


Entscheidet man sich für die Luxus¬ 


version, so kann man beim Aufbau 
der Schaltung auf das abgedruckte 
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ed + c 


BELEGUNG DER STIFTLEISTE 
Leiste/Anschluß 


1—Masse 

22-Clear 

2-13 

23-1 

3- 8 

24-9 

4- 7 

25-6 

5- 5 

26-4 

7- 2 

27—A 

13- 6 

28—D 

14- 1 

29—C 

18-12 

30—B 

20-15 

31—+5 V 


Netzteil 


Nicht aufgeführte Kontakte sind 
nicht belegt! 


220V« 



+5V 


TABELLE KEY-BOARD-PORT 


Taste: / 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 


Schaltpläne 
und Tabellen 



-o TI 

T2 
T3 

o T 4 

T5 

o T 6 

o T7 


H o 

I - o - 

CTRL o-o 

FCTN o-o 

4 o--- -o T10 

Erläuterung zur Tabelle: 

Die Zahlen 1—15 stellen die PIN's des Key-Board-Ports dar. Mit den Buchstaben A—l 
sind die entsprechenden Tasten der Tastatur gemeint. Bei ihrer Betätigung werden die 
durch die Strichlimen dargestellten Verbindungen geschaffen. 

In der Schaltung verbindet der in der gleichen Reihe stehende Transistor die entspre¬ 
chenden PIN's. 


O T8 

-oT 9 


den. Für die IC’s sollte man Sockel 
verwenden, um ihre vorzeitige Zer¬ 
störung beim Einlöten zu vermei¬ 
den. Die angegebenen Brücken 
sind mit geeignetem Draht (z.B. 
Silberdraht) herzustellen. 

Soll die Schaltung nur in der Grund¬ 
version zur Anwendung kommen, 
so kann man sich nach dem oberen 
Teil des Schaltplans selbst ein 
Platinenlayout erstellen oder man 
baut das Ganze auf einer vorgefer¬ 
tigten Platine mit Lötstreifen auf. 


Platinenlayout zurückgreifen.. 

Es handelt sich bei der Platine um 
eine sogenannte Europakarte 
(100x160 mm), die als Einschub 
ausgelegt ist. Der Anschluß erfolgt 
über eine 31polige Stiftleiste. Will 
man nicht die Einschub Version 
bauen, so können die Verbindungs- 


adem natürlich auch direkt einge¬ 
lötet werden. 

Neben den im Schaltplan dargestell¬ 
ten Bauteilen sind auf der Platine 
noch der Schalter S 1 für Ein/Aus, 
eine Feinsicherung F 1 und eine 
Leuchtdiode LED 1 mit Vorwider¬ 
stand zur Betriebsanzeige vorhan- 


ANSCHLUSS- UND 
FUNKTIONSÜBERPRÜFUNG 

Sind alle Bauteile eingelötet, so 
überprüft man noch einmal anhand 
des Schaltplanes ihre korrekte Ein¬ 
baulage und die Richtigkeit der 
Anschlüsse. 
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Clear 


Transistoren: 

IOxBC 546 /TI —T 10 
IC's: 

2 x 7404 (je 6 Inverter) 

1 x 7447 (BCD-7 Segment 
Decoder) 

1 x 7442 (BCD-DezimaJ 
Decoder) 

LED's: 

1 x rot; 5 mm; 1,6 V / LED 1 

2 x grün; 5 mm 1,6 V / LED 2 
LED-Anzeige: 

1 x D 350 PA (7-Segmentan- 
zeige; 13 mm Ziffernhöhe; 

1,6 V; gern. Anode) 
Widerstände: 

9 x 270 Ohm / R 1 - R 9 
10x30 kOhm / R 10- R 19 
10x33 kOhm / R 20 - R 29 
Sonstiges: 

1 x Sicherungshalter mit Fein- 
sicherung (0,5 A) / F 1 
1 x 4pol. DIL Schalter / S 2 



1 x Stiftleiste; 31 pol.; 

2,5 mm Raster 
1 x Aus-Schalter / S 1 

Stückliste Netzteil: 

Halbleiter: 

1 x Spannungsregler 7805; 1 A 
1 x Brückengleichrichter 
B 40 C 1500/1000 
Kondensatoren: 

1 x 4700 uF/25 V (Elko) 

1 x 100 uF 710 V (Elko) 

1 x100 nF 
Sonstiges: 

1 x Trafo; prim. 220 V; 

sek. ca. 12 V 

2 x Sicherungshalter mit 

Feinsicherung (0,2; 1 A) 

1 x Ausschalter 2pol.; 220 V 

Anmerkung: 

Das Netzteil ist für spätere 
Erweiterungen absichtlich stär¬ 
ker ausgelegt worden. 


■ FCTN 
CTRL 


t 


Nun legt man die Betriebsspannung 
von 5 V an, LED 1 sollte leuchten, 
LED 2 und die 7-Segmentanzeige 
müssen noch dunkel sein. Legt man 
nun die Anschlüsse A — D auf Masse, 
so sollte LED 2 leuchten und die 
Anzeige eine 0 darstellen. Ist dies 
gegeben, stellt man die angegebenen 
Verbindungen zum Key-Board-Port 
und zur Masse her. In den Compu¬ 
ter wird folgendes Programm ein¬ 
gegeben: 

100 CALL KEY (4, K, S) 

110 IF S = 0 THEN 100 
120 PRINT K 
130 GOTO 100 
Man startet das Programm und 
schließt S 2-CTRL. Anschließend 
werden die Werte 1 — 9 im BCD- 
Code an die Anschlüsse A — D ge¬ 
legt, wobei die angelegte Zahl auf 
der 7-Segmentanzeige und auf dem 
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Bildschirm sichtbar werden müßte. 
Sollten einige Werte zwar auf der 
Anzeige, nicht aber auf dem Bild¬ 
schirm erscheinen, so sind die ent¬ 
sprechenden Transistoren zu dre¬ 
hen (Kollektor und Emitter ver¬ 
tauschen). 

Nach Betätigen von S 2-FCTN und 
Anlegen von +5 V an den Anschluß 
CLEAR (Pin 22 Stiftleiste) sollte 
der Programmablauf gestoppt wer¬ 
den. Sind diese Funktionen alle ge¬ 
geben, so funktioniert die Schaltung 
einwandfrei. 

SPANNUNGSVERSORGUNG 

Die Schaltung benötigt 5 V und ca. 
300 mA. Es ist am besten, sichjur 
die Versorgung ein separates Netz¬ 
teil aufzubauen, wenn dies noch 
nicht vorhanden sein sollte. Der 
Aufbau ergibt sich aus Schaltplan 
und Stückliste und dürfte keine 
Schwierigkeiten bereiten. Unterbrin- 

BCD-CODE 

Dez.Zahl D=8 C=4 B=2 A=1 

0 - - - - 

1 - - - + 

2 - - + - 

3 - - + + 

4 - + - - 

5 - + - + 

6 - + + - 

7 - + + + 

8 + - - - 

9 . + - - + 

gen sollte man das Netzteil in einem 
Metallgehäuse, um das Magnetfeld 
des Trafos abzuschirmen. Die Aus- 
- ldgung des Netzteils läßt spätere 
Erweiterungen, sowohl vom Span¬ 
nungswert hinter dem Trafo, als 
auch vom Ausgangsstrom, durchaus 
zu. 

ANWENDUNGEN 

Bei der Anwendung der Schaltung 
sind der Phantasie keine Grenzen ge¬ 
setzt. Man kann z.B. die Raumtem¬ 
peratur über entsprechende Wandler 
erfassen und in den Computer zur 
Weiterverarbeitung einiesen. 

Der beschränkte Bereich von 1—9 
ist durchaus ausreichend dafür, da 
die Temperatur ja nur in bestimm¬ 
ten Grenzen schwankt. Der erfaß¬ 
bare Bereich wäre z.B. von 16 — 
24° C. 

Weitere Anwendungen wären z.B. 
eine Alarmanlage; das Einlesen von 
in bestimmten Grenzen schwanken¬ 
den Spannungs- oder Stromwerten 
oder die Positionsabfrage eines 
selbstgebautert Roboterarmes. 

P eter Thorhauer 



Um den Plotter von BASIC aus auch CALL LINK<(“FAKTOR“,XFAK, 

nun betreiben zu können, stehen YFAK) 

folgende Programme zur Verfügung, Skalierung definieren 

die mit CALL LINK (“Prgm“,Pl, Diese Programme nehmen dem An- 

P2,..) aufgerufen werden. wender die Arbeit ab, sich ausrech- 

CALL LINK<(“PLTR“,X,Y,IP) nen zu müssen, wie viele Plotschrit- 

relativ Plotten te nun nötig sind, um den Stift um 

CALL LINK<(“PLTA“,X,Y,IP) die gewünschte Strecke zu bewe- 

absolut Plotten gen, außerdem erzeugen sie den 

CALL LINK<(“RESET“) Kode für die Richtung und den 

Ursprung und Startwerte setzen Zeichenstift. Die Plotprogramme 







SERVICE 


können durch Drücken einer Taste 
jederzeit abgebrochen werden, es 
erfolgt dann der Rücksprung ins - 
BASIC. 

Da in alle Richtungen unabhängig 
voneinander gezeichnet werden 
kann, stehen acht Richtungen zur 
Verfügung, in die der Stift ohne 
Interpolation gefahren werden 
kann: horizontal, vertikal und 45 
Grad diagonal. 


-X,+Y 

-xo- 


0, +Y 

I 

I 

I 


-X-Y 


I 

• I 

I 

0, -Y 


+X+Y 

+xo 


+X-Y 


gegeben. Es wird definiert, wieviele 
Motorschritte für X=1 bzw. Y=1 
zugeordnet werden sollen. 

Da ein Motorschritt eine viertel 
Umdrehung der Gewindestangen 
bewirkt und ein M5-Gewinde eine 
Steigung von 0,7 mm/Umdrehung 
hat, bewegt sich der Stift bei einem 
Motorschritt um 0,7/4,0 mm = 
0,175 mm. Daraus folgt, wenn die 
X- und Y-Koordinaten in cm einge¬ 
geben werden sollen, muß XFAK 
und YFAK = 10/0,175 = 57,14 ge¬ 
setzt werden. Mit diesem Faktor 
wird also erreicht, daß X und Y 
in “PLTR“ und “PLTA“ in cm ein¬ 
gegeben werden können. Durch den 
Aufruf von-“RESET“ wird dieser 
Faktor auch gesetzt. 


Die beiden Programme “PLTR“ und 
“PLTA“ arbeiten nach diesem 
Prinzip 

CALL LINK<“PLTR“,X,Y,IP) 
Dieses Programm zeichnet relativ, 
d.h. der Stift wird von der augen¬ 
blicklichen Position um den Betrag 
von X und Y in die durch die Vor¬ 
zeichen bestimmte Richtung ge¬ 
fahren. Ist IP=0,so bleibt der Stift 
gehoben und ist IP>0, so wird der 
Stift gesenkt und somit eine Linie 
gezogen. 

CALL LINK< “PLTA“,X,Y,IP) 
Dieses Programm zeichnet absolut, 
d.h., der Stift bewegt sich vom 
Nullpunkt aus gesehen auf den 
Punkt mit den Koordinaten X und 
Y. Der Nullpunkt wird durch die 
Position festgelegt, in der der Stift 
vor dem ersten Aufruf von “PLTA“ 
ist. Für IP gibt es drei Möglich¬ 
keiten: 

1. IP<: setze diesen Punkt als Null¬ 

punkt. 

2. IP=0: fahre zu der angegebenen 

Position mit gehobenem 
Stift. 

3. IPX): fahre zu der angegebenen 

Position mit gesenktem 
Stift (Linie) 

Zur leichteren Handhabung des 
Plotters dienen die beiden folgen¬ 
den Programme: 

CALL LINK<(“RESET“) % 
stellt die Startwerte für alle Plot¬ 
programme her: Die augenblickliche 
Position ist der Nullpunkt, und der 
Stift ist gehoben. Die Skalierung für 
die X- und Y-Richtung wird zu 
57,14 Motorschritte pro 1,0 cm 
gesetzt. 

CALL LINK<(“FAKTOR“,XFAK, 
YFAK) 

Hiermit werden die Skalierungsfak¬ 
toren für die X- und Y-Richtung vor- 



Anmerkung: Das Mischen von 
“PLTA“ und “PLTR“ ohne 
“RESET“ ist nicht erlaubt! 

Da es sich hier um Routinen handelt, 
die in Assembler geschrieben sind, 
gibt es zwei Möglichkeiten, sie in 
den Rechner zu laden. 

1. Den Quellcode zu übersetzen und 
zu laden. Dafür ist aber dann eine 
Diskettenstation notwendig. 

2. Die Pokeliste von Kassette mit 
Hilfe meines beigefügten BASIC- 
Ladeprogramms in das Low-Memory 
poken. Das Plotprogramm belegt 
dann den Speicher von> 3000 bis 
>34BE. 

Matthias Wahne 






DEF 

PLTA 


DEF 

RESET 


DEF 

FAKTOR 

CRU 

EQU 

>1600 

NUMREF 

EQU 

>200C 

XMLLNK 

EQU 

>2018' 

FAC 

EQU 

>834A 

ARG 

EQU 

>835C 

RTN 

EQU 

>0070 

STATUS 

EQU 

>837C 

GPL 

EQU 

>83E0 

FDIV 

EQU 

>0FF4 

FADD 

EQU 

>0D80 

FMUL 

EQU 

>0E88 

MY 

BSS 

32 

SRI 1 

BSS 

2 

RT1 

BSS 

2 

RT2 

BSS 

2 

TAST 

EQU 

>8374 

KSCN 

EQU 

>20 IC 

ZW 

BSS 

2 

IX 

BSS 

2 

CDE 

BSS 

2 

CDEA 

BSS 

2 

CDXY 

BSS 

2 

IY 

BSS 

2 

IPEN 

BSS 

2 

X 

BSS 

8 

Y 

BSS 

8 

S 

DATA 

>0000 


DATA 

>0000 


DATA 

>0000 


DATA 

>0000 

G 

BSS 

8 

XFAK 

DATA 

>4039 


DATA 

>0E1C 


DATA 

>0000 


DATA 

>0000 

YFAK 

DATA 

>4039 


DATA 

>0E1C 


DATA 

>0000 


DATA 

>0000 

XA 

DATA 

>0000 


DATA 

>0000 


DATA 

>0000 


DATA 

>0000 

YA 

DATA 

>0000 


DATA 

>0000 


DATA 

>0000 


DATA 

>0000 

P5 

DATA 

>C0CE 


DATA 

>0000 


DATA 

>0000 


DATA 

>0000 

EI 

DATA 

>4001 


DATA 

>0000 


DATA 

>0000 





LISTING 




DATA 

>0000 

MYDIV 

MOV 

11,@RT1 

GO 

DEC 

4 

XUB 

DATA 

> 1E00 


BL 

eXTRP 


JNE 

GO 


DATA 

>1200 


LWPI 

GPL 


STCR 

4,8 


DATA 

>1C00 


BL 

QFDIV 


JNE 

GG* 


DATA 

> 1A00 


LWPI 

MY 

GK 

MOV 

QSRll,11 


DATA 

>0000 


MOV 

ORT1,11 


RT 



DATA 

>1600 


RT 


POUT 

MOV 

ll,@SRli 


DATA 

>1400 

BASIC 

CLR 

0 


CLR 

4 


DATA 

>1000 


MOVB 

0,0STATUS 


LI 

12,CRU 


DATA 

>1800 


LWPI 

GPL 


LDCR 

4,8 

NULL 

DATA 

>0000 


B 

@RTN 


MOV 

@CDE,4 


DATA 

>0000 

PARP 

MOV 

ll,@SRli 


LDCR 

4,8 


DATA 

>0000 


LI 

8,>0008 


ORI 

4,>0100 


DATA 

>0000 


LI 

9,>0002 


LDCR 

4,8 

RFAKT 

DATA 

>4039 

PN 

CLR 

0 


MOV 

esRii,li 


DATA 

>0E 1C 


MOV 

9,1 


RT 



DATA 

>0000 


BLWP 

QNUMREF 

PLTR 

LWPI 

MY 


DATA 

>0000 


LI 

3, X 


BL 

qparp 

PAXY 

DATA 

>0000 


A 

8,3 

PLT 

LI 

5,>0A00 


DATA 

>0000 


LI 

2, FAC 


CLR 

0 


DATA 

>0000 


BL 

QTRD 


C 

@IPEN,0 


DATA 

>0000 


LI 

2, XFAK 


JEQ 

PI 


DATA 

>0000 


A 

8,2 


LI 

5, >0C00 


DATA 

>0000 


LI 

3, X 

Pi 

MOV 

5,@CDE 


DATA 

>0000 


A 

8,3 


BL 

QPSTA 


DATA 

>0000 


BL 

QMYMUL 


BL 

QPOUT 

TRD 

MOV 

*2+,*3+ 


BL 

eXTRG 


- CLR 

6 


MOV 

*2+,*3+ 


LI 

3, X 


CLR 

7 


MOV 

*2+,*3+ 


A 

8,3 


ABS 

eix 


MOV 

*2, *3 


LI 

2, XA 


JEQ 

xo 


RT 



A 

8,2 


JGT 

GX 

XTRP 

MOV 

11,@RT2 


BL 

QMYADD 


' LI 

6, >FFFF 


MOV 

3,@ZW 


BL 

eXTRG 


B 

exo 


XTRG 


MYADD 


MYMUL 


o j r nv_, 

@TRD 

ezw ,2 

3, ARG 
@TRD 
@RT2,11 

11,@RT2 
2, FAC 
@ZW,3 
@TRD 


BLWP eXMLLNK 

DATA >12B8 

MOV @FAC,@IX<8) 

LI 3,XA 

A . 8,3 

LI 2,NULL 

BL @TRD 

CLR 8 

DEC 9 

JNE PN 

CLR 0 


MOV 

@RT2,11 

LI 

1,>0003 

AI 

RT 


BLWP 

QNUMREF 

A 

MOV 

ll,@RTi 

BLWP 

eXMLLNK 

MOV 

BL 

eXTRP 

DATA 

>12B8 

CLR 

LWPI 

GPL 

MOV 

@FAC,@IPEN 

CLR 

BL 

QFADD 

MOV 

eSRil,ll 

C 

LWPI 

MY 

RT 


JGT 

MOV 

@RT1,11 PSTA 

MOV 

ii,esRii 

MOV 

RT 


LI 

12,CRU 

MOV 

MOV 

11, @RT 1 GG 

CLR 

4 

AI 

BL 

eXTRP 

MOVB 

4,@TAST 

A 

LWPI 

GPL 

MOVB 

4,@STATUS 

MOV 

BL 

QFMUL 

BLWP 

QKSCN 

LI 

LWPI 

MY 

MOVB 

QST ATUS,4 

CLR 

MOV 

0RT1,11 

JNE 

GK 

LI 

RT 


LI 

4,>2200 

LI 







GY 

7,>FFFF 
@Y0 

7, >0001 

6.5 

5.5 

6.5 

7.5 

5,>0004 

5.5 

@XUB<5>,@CDEA 
8 
9 

eix,eiY 

XG 

7.5 

@iy,6 

5,>0004 

5.5 

avirn/^ ornw 




LISTING 


CON 


XG 


DO 


GOON 


GOPLT 


ENDE 


BL eMYDIV 
LI 2,FAC 

LI 3, G 
BL eTRD 
ABS @G 
JMP DO 
MOV 6,5 
A 5,5 
A 6,5 
AI 5,>0004 
A 5,5 

MOV @XUB(5),@CDXY 
CLR 8 

LI 9,>0008 

MOV @IX,6 

LI 2, X 

LI. 3,Y 

JMP CON 

INC 6 

LI 2,NULL 

LI 3, S 

BL @TRD 

DEC 6 

JLE ENDE 

MOV eCDXY,@CDE 

LI 3,XA 

A 8,3 

LI 2,EI 

BL 6MYADD 

BL 0XTRG 

LI 3, S 

LI 2, G 

BL QMYADD 

BL eXTRG 

LI 2, S 

LI 3,P5 

BL eMYADD 

MOV @FAC,5 

JLT GOPLT 

LI 3,XA 

A 9,3 

LI 2,EI 

BL . eMYADD 

BL eXTRG 

LI 3, S 

NEG @EI 

LI 2,EI 

BL 6MYADD 

BL eXTRG 

NEG @EI 

MOV eCDEA,@CDE 

BL 6PSTA 

MOV 4,4 

JNE ENDE 

BL ePOUT 

JMP GOON 

MOV @X,8 

JLT XX 

JEQ XX 

NEG eXA 


XX 


YY 


PLTA 


AA 


APLT 


PF 


LI 

3, XA 

LI 

2, X 

BL 

QMYADD 

BL 

eXTRG 

MOV 

6Y,9 

JLT 

YY 

JEQ 

YY 

NEG 

6YA 

LI 

3, YA 

LI 

2, Y 

BL 

eMYADD 

BL 

eXTRG 

B 

eBASIC 

LWPI 

MY 

BL 

ePARP 

LI 

8, >0008 

•LI 

9,>0002 

NEG 

QPAXY(8) 

LI 

2,PAXY 

A 

8,2 

LI 

3, X 

A 

8, 3 

BL 

eMYADD 

LI 

2 j X 

A 

8,2 

LI 

3,PAXY 

A 

8,3 

BL 

eTRD 

LI 

2, FAC 

LI 

3, X 

A 

8,3 

BL 

eMYADD 

LI 

2,X 

A 

8,2 

LI 

3,PAXY 

A 

8,3 

BL 

6TRD 

LI 

2, FAC 

LI 

3, X 

A 

8,3 

BL 

eTRD 

BLWP 

eXMLLNK 

DATA 

>12B8 

MOV 

eFAC,eiX<8> 

CLR 

8 

DEC 

9 

JNE 

AA 

MOV 

6IPEN,9 

JGT 

APLT 

JEQ 

APLT 

B 

eBASIC 

B 

ePLT 

LWPI 

MY 

LI 

9,2 

LI 

8,8 

CLR 

0 

MOV 

9,i y 

BLWP 

eNUMREF n 

LI 

2, FAC m 

LI- 

3, XFAC 


A 

BL 

CLR 

DEC 

JNE 

B 

RESET LWPI 
LI 
MOV 
BL 
LI 
MOV 
BL 
LI 
MOV 
BL 
BL 
LI 
LI 
BL 
LI 
LI 
LI 
LI 
A 

BL 

LI 

LI 

A 

BL 

LI 

LI 

A 

BL 

CLR 

DEC 

JNE 

B 

END 


8,3 

eTRD 

8 

9 

PF 

eBASIC 

MY 

4, >0A00 

4,eCDE 

6P0UT 

4, >1E00 

4,eCDE 

epouT 

4, >1800 
4,eCDE 
ePSTA 
epouT 

2, NULL 

3, S 

@TRD 

4.2 
5,8 

2, NULL 

3, XA 

5.3 
eTRD 

2, NULL 

3, PAXY 
5,3 
eTRD 

2, RFACT 

3, XFAC 
5,3 
eTRD 

5 

4 

RR 

eBASIC 













1 0 i*4***4****************** 

20 !* Textplat Subroutinen * 
30 ** Copyriqht M. WAHNER * 
40 !* CALL PLTXT("str",X,Y,* 
50 1 * size,qrad) * 

60 «* CALL ROTATE(X,Y,grad)* 
70 •* Benltigte Ger<te : * 

60 !* Konsole & Ex-Basic * 
90 !* Selbstbau - Plotter * 

95 !* PIotso-ftware -Mr den * 

96 •* Plotter <M. WAHNER) * 

99 •************************ 

100 CALL LINK<"RESET“) 

110 CALL PLTXT ( "EIN DRUCKER 
KANN",-3.0,6,.05,0) 

120 CALL PLTXT("ZWAR WESENTL 
ICH",-2.75,5,.05,0) 

130 CALL PLTXT("SCHNELLER SC 


HREIBEN",-3.75,4,.05,0) 

140 A*- M ABER DAS KANN ER NI 
CHT! " 

150 x-o.o :: v-i.so s: R-o : 

: for l«i to 24 :: xx=x :: y 
Y«Y :: CALL ROTATE(XX, YY 
,R)I: CALL PLTXT(SEG*(A*,I,1 
),xx, yy,. 05,R):: R-R-is :: N 
EXT I 

160 CALL LINK<"PLTA",-4,-4,0 
):: CALL LINK("RESET") 

170 X-1 :: Y-0.0 :: R»o :: F 
or i-i to 8 :: xx-x :: yy°y 
:: CALL ROTATE(XX,YY,R): 

: CALL PLTXT("PLOT",XX,YY,.0 
5,R):: R=R+45 :: next i 
180 CALL LINK("PLTA",7,0,0): 


: CALL LINK("RESET") 

190 S-.25 :: ST-0 ! RELATIV 
PLOTTEN MEANDER 


200 FOR I*t TO 5 :: ST=ST+S 
:: CALL LINK("PLTR",ST,0,1)I 
: CALL LINK("PLTR",0,ST, 
l):: st=st+s :: call linkcp 

LTR",-ST,0,1):: CALL LINK("P 
LTR",0,-ST,1):: NEXT I 
210 CALL LINK("RESET")!: END 
30000 ! Data tuer Buchstaben 

30012 DATA 1,0,0,0 

30013 DATA 4,3,0,0,3,1,1,3,3 
,0,3,8,1 

30014 DATA 1,0,0,0 

30015 DATA 1,0,0,0 

30016 DATA 1,0,0,0 

30017 DATA 1,0,0,0 

30018 DATA 1,0,0,0 

30019 DATA 1,0,0,0 

30020 DATA 1,0,0,0 

30021 DATA 1,0,0,0 

30022 DATA 1,0,0,0 

30023 DATA 1,0,0,0 

30024 DATA 1,0,0,0 


L 

I 

S 

T 

I 

N 

G 

S 


30025 DATA 2, 

30026 DATA 2, 

30027 DATA 2, 

30028 DATA 5, 

,1,5,0,1,1,0, 

30029 DATA 3, 

» 1 

30030 DATA 6, 
i1» ^» 5,1,0,0, 

30031 DATA 7, 
,1,3,4,1,6,2, 

30032 DATA 5, 
,1,3,6,0,3,0, 

30033 DATA 6, 
,1,0,5,1,0,8, 

30034 DATA 6, 
, 1 , 0 , 0 , 1 , 0 , 8 , 

30035 DATA 3, 
,1 

30036 DATA 7, 
, 1 , 0 , 0 , 1 , 0 , 8 , 

30037 DATA 5, 
,1,0,4,1,6,4, 

30038 DATA 4, 
,0,3,2,1 

30039 DATA 4, 
,0,3,0,1 

30040 DATA 1, 

30041 DATA 1, 

30042 DATA 1, 

30043 DATA 1, 

30044 DATA 1, 

30045 DATA 4, 
,3,0,4.9,3, 1 

30046 DATA 9, 
,1,3,4,1,0,4, 
, 0 , 1 , 0 , 0,1 

30047 DATA 4, 
,1,6,0,1 

30048 DATA 6 
,1,6,2,1,4,0 

30049 DATA 6 
,0,0,4,1,0,0 

‘30050 DATA 4 
,0,0,4,1 

30051 DATA 6 
,1,3,0,1,5,4 

30052 DATA 5 
, 1 , 6 , 8 , 0 , 6,0 

30053 DATA 2 

30054 DATA 5 
,1,4,8,1,3,8 

30055 DATA 5 
,1,1,4,1,3,0 

30056 DATA 3 

p * 

30057 DATA 4 
, 1 , 6 , 0,1 

30058 DATA 3 
,1 


isKsaiaiä»^ 



,4,0,5,4,1 
3,0,0,3,0, 1 
1,0,0,5,8,1 
1,0,0,1,8,1,5,8 

0,5,0,3,8,1,3,0 

0 , 6 , 0 , 0 , 8 , 1 , 6,6 
1 , 6 , 0,1 

0 , 6 , 0 , 2 , 8 , 1 , 6,6 
1,3,0,1,0,2,1 
0,8,0,0,3,1,6,3 
1 

3,0,1,6,3,1,3,5 

1 , 6 , 8,1 

0,4,0,6,4,1,6,0 

1 , 6 , 8 , 1 

2 , 0 , 0 , 6 , 8 , 1 , 0,8 

0,4,0,6,4, 1,6,0 
1,6,8,1,6,3,1 
6 , 0 , 1 , 6 , 8 , 1 , 0,8 
1 

3,3,0,3,5,1,3,2 

3,5,0,3,5,1,3,2 

0 , 0,0 
0 , 0,0 
0 , 0,0 
i 0,0 , 0 
, 0 , 0,0 

,3,8,1,6,0,1,1.1 

,0,8,1,3,8,1,6,6 
r l,4,4,1,6,2,1,4 

,6,8,0,0,8,1,0,0 

,0,8,1,4,8,1,6,6 
, 1,0,0,1 

,0,8,1,6,6,1,4,4 

, 0,6,0, 1 

,0,8,1,6,8,1,4,4 

,6,6,0,0,8,1,0,0 
,1,3,4,1 

, 0 , 6 , 1 , 0 , 4 , 0 , 6,4 

p 1 

,4,6,0,4,0,1 
,1,1,0,1,0,1,4,0 
p 1 

,0,8,1,6,8,0,0,3 
p 1 

, 0 , 8 , 0 , 0 , 0 , 1 , 6,0 
,0,8,1,3,4,1,6,8 
i , 0 , 6 , 1 , 6 , 0 , 1 , 6,6 


18 






30059 DATA 4,0,8,1,6,6,1,6,0 

11 f 010 p 1 

30060 DATA 4,0,8,1,6,8,1,6,4 
p 1 p 01 4 p 1 

30061 DATA 7,0,8,1,6,8,1,6,3 
f 1p 4p Oplp0,0pIp4p3p0p6,0p1 

30062 DATA 5,0,8,1,6,8, 1,6,4 
p 1 p Op 4, 1,6 f 0, 1 

30063 DATA 5,6,0,1,6,2,1,0,6 
,1,0,8,1,6,8,1 

30064 DATA 4,3,0,0,3,8,1,0,8 
,0,6,8,1 

30065 DATA 4,0,8,0,0,0,1,6,0 
,1,6,8,1 

30066 DATA 3,0,8,0,3,0,1,6,8 

t 1 

30067. DATA 5,0,8,0,0,0,1,3,4 * 
,1,6,0,1,6,8,1 

30068 DATA 3,6,8,1,0,8,0,6,0 

t 1 

30069 DATA 5,0,8,0,3,4,1,6,8 

, 0 , 3 , 4 , 1 , 3 , 0 , 1 

30070 DATA 4,0,8,0,6,8,1,0,0 
,1,6,0,1 

30071 DATA 1,0,0,0 

30072 SUB PLTXT<TX*,X,Y,TFAK 
, ROT) 

30073 L-LEN<TX*):: IF L<-0 T 
HEN SUBEXIT 

30074 CALL LINK("PLTA",X,Y,0 
) 

30075 FOR 1-1 TO L ü N-ASC< 
SE0*<TX*,I,1 )y 

30076 IF N<32 0R(N>90 AND N< 
97)OR N>122 THEN 30144 

30077 IF N>96 THEN N-N-32 

30078 N-N-31 

30079 IF N<-20 THEN GOTO 300 
80 ELSE IF N>40 THEN GOTO 30 
082 ELSE 30081 

30080 ON N GOTO 30083,30084, 
30085,30086,30087,30088,3008 
9,30090,30091,30092,3009 

3,30094,30095,30096,30097,30 
098,30099,30100,30101,30102 

30081 ON N-20 GOTO 30103,301 
04,30105,30106,30107,30108,3 
0109,30110,30111,30112,3 
0113,30114,30115,30116,30117 
,30118,30119,30120,30121,301 
22 

30082 ON N-40 GOTO 30123,301 
24,30125,30126,30127,30128,3 
0129,30130,30131,30132,3 
0133,30134,30135,30136,30137 
,30138,30139,30140,30141,301 
42 

30083 RESTORE 30012 :: GOTO 
30143 

30084 RESTORE 30013 :: GOTO 


30143 

30085 

RESTORE 

30014 

• • 

« • 

GOTO 

30143 

30086 

RESTORE 

30015 

0 0 

0 ■ 

GOTO 

30143 

30087 

RESTORE 

30016 

0 0 

GOTO 

30143 

30088 

RE8T0RE 

30017 

0 0 

0 0 

GOTO 

30143 

30089 

RESTORE 

30018 

• c 

■ t 

GOTO 

30143 

30090 

RESTORE 

30019 

0 0 

0 0 

GOTO 

30143 

30091 

RESTORE 

30020 

0 0 

0 0 

GOTO 

30143 

30092 

RESTORE 

30021 

0 0 

0 0 

GOTO 

30143 

30093 

RESTORE 

30022 

0 0 

0 0 

GOTO 

30143 

30094 

RESTORE 

30023 

0 0 

0 0 

GOTO 

30143 

30095 

RESTORE 

30024 

0 0 

0 0 

GOTO 

30143 

30096 

RESTORE 

30025 

0 0 

0 0 

GOTO 

30143 

30097 

RESTORE 

30026 

0 0 

0 0 

GOTO 

30143 

30098 

RESTORE 

30027 

0 0 

0 0 

GOTO 

30143 

30099 

RESTORE 

30028 

0 0 

0 0 

GOTO 

30143 

30100 

RESTORE 

30029 

t 0 

0 0 

GOTO 

30143 

30101 

RESTORE 

30030 

0 0 

0 0 

GOTO 

30143 

30102 

RESTORE 

30031 

0 0 

0 0 

GOTO 

30143 

30103 

RESTORE 

30032 

0 0 

0 0 

GOTO 

30143 

30104 

RESTORE 

30033 

0 0 

0 0 

GOTO 

30143 

30105 

RESTORE 

30034 

0 0 

0 0 

GOTO 

30143 

30106 

RESTORE 

30035 

0 0 

0 0 

GOTO 

30143 

30107 

RESTORE 

30036 

0 0 

0 0 

GOTO 

30143 

30108 

RESTORE 

30037 

0 0 

0 0 

GOTO 

30143 

30109 

RESTORE 

30038 

0 0 

0 0 

GOTO 

30143 

30110 

RESTORE 

30039 

0 0 

0 0 

GOTO 

30143 

30111 

RESTORE 

30040 

0 0 

0 0 

GOTO 

30143 

30112 

RESTORE 

30041 

0 0 

0 0 

GOTO 

30143 

30113 

RESTORE 

30042 

0 0 

0 0 

GOTO 

30143 

30114 

RESTORE 

30043 

0 0 

0 0 

GOTO 


L 

I 

S 

T 

I 

N 

G 

S 


» 
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30143 

30115 RESTORE 30044 :: GOTO 
30143 

30116 RESTORE 30045 :: GOTO 
30143 

30117 RESTORE 30046 :: GOTO 
30143 

30118 RESTORE 30047 :: GOTO 
30143 

30119 RESTORE 30048 :: GOTO 
30143 

30120 RESTORE 30049 :: GOTO 
30143 

30121 RESTORE 30050 :: GOTO 
30143 

30122 RESTORE 30051 :: GOTO 
30143 

30123 RESTORE 30052 :: GOTO 
30143 

30124 RESTORE 30053 :: GOTO 
30143 

30125 RESTORE 30054 :: GOTO 
30143 

30126 RESTORE 30055 :: GOTO 
30143 

30127 RESTORE 30056 :: GOTO 
30143 

30128 RESTORE 30057 :: GOTO 
30143 

30129 RESTORE 30058 :: GOTO 
30143 

30130 RESTORE 30059 :: GOTO 
30143 

30131 RESTORE 30060 :: GOTO 
30143 

30132 RESTORE 30061 :: GOTO 
30143 

30133 RESTORE 30062 li GOTO 
30143 

30134 RESTORE 30063 \l GOTO 
30143 

30135 RESTORE 30064 !! GOTO 
30143 

30136 RESTORE 30065 :: GOTO 
30143 

30137 RESTORE 30066 :: GOTO 
30143 

30138 RESTORE 30067 :: GOTO 
301*3 

30139 RESTORE 30068 :: GOTO 
30143 

30140 RESTORE 30069 :: GOTO 
30143 

30141 RESTORE 30070 :: GOTO 
30143 

30142 RESTORE 30071 :: GOTO 

30143 

30143 CALL TX<X,Y,TFAK,ROT) 

30144 NEXT I 

30145 SUBEND 
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30146 SUB TX <XA,YA,TF f ROT)I l 

read M :: yn=o i : xn=8 :: c 

ALL ROTATE(XN,YN,ROT) 

30148 FOR 1=1 TO M :: READ X 
f Y,IP :: CALL ROT ATE < X,Y,ROT 
):: CALL LINK<"PLTA\X#T 
F+XA,Y*TF+YA,IP):: NEXT I :: 

xa=xa+xn*tf :: ya=ya+yn#tf 
:: CALL LINK <"PLTA" , XA,Y 
A,o):: SUBEND 

30149 SUB ROTATE(X,Y,R):: CR 

=cos(Pi/i80*R) :: si=sin<pi/i 
80*R):: xr=x*cr-y#si :: 
yr=x#si+y#cr :: x=xr :: y-yr 

:: SUBEND 

30155 REM End# d## Programm# 


TIP ZUM 
MODULPORT 


Auch ich hatte Probleme 
mit dem Modul Extended 
Basic II plus. Nach meh¬ 
reren bösen Abstürzen 
entschloß ich mich zu ei¬ 
ner Reinigung der Kon¬ 
takte am Modulsockel, 
mit der ich schon einmal 
Erfolg hatte im Zusam : 
menhang mit dem origi- 
nalen XB-Modul. Aber 
diesmal verschwanden die 
Abstürze nicht, im Ge¬ 
genteil: Plötzlich machte 
der Computer völlig 
grundlos einen Sprung im 
Programm, der auch nach 
einem Neustart blieb. 

Ich schloß auf einen Feh¬ 
ler im Modul, da die Pro¬ 
gramme mit dem Original- 
Modul einwandfrei liefen, 
und tauschte es um. Die 
Sprünge verschwanden, 
die Abstürze nicht. Zeit¬ 
weise stürzte der Compu¬ 
ter schon beim Anwählen 
in der Hauptwahlliste ab. 
Von einem Bekannten 
kaufte ich dann eine zwei¬ 
te Konsole, aber auch hier 
entstanden die Abstürze. 
Wieder griff ich zum 
Schraubendreher und öff¬ 
nete gleich beide Konso¬ 
len. Beim Herumpröbeln 
stellte es sich heraus, daß 
die Modulsockel ausge¬ 


leiert waren, allerdings 
nicht je gleich stark, und 
auch der Modulschacht 
der Konsole zeigte Ab¬ 
nützungserscheinungen. 
Darüber hinaus sind die 
Leiterbahnen auf der Pla¬ 
tine des Extended Basic 
II plus breiter als beim 
originalen XB-Modul. Ich 
nahm an, daß durch diese 
Faktoren beim Einschie¬ 
ben des Moduls ein fal¬ 
scher Kontakt entstehen 
kann. Beim Zusammen¬ 
bauen der Konsolen 
tauschte ich die beiden 
Modulsockel gegenseitig 
aus, ein Versuch, und 
siehe da: Die Probleme 
tauchten nicht mehr auf. 
Dieses Frühjahr nun kauf¬ 
te ich von einem anderen 
Bekannten eine ganze 
Anlage. Bei dieser dritten 
Konsole kamen die Ab¬ 
stürze wieder. Hier ging 
ich aber anders vor: Ich 
bestellte bei Texas Instru¬ 
ments (Schweiz) zwei 
andere Modulsockel, die 
schon drei Tage später 
eintrafen, zu einem Preis 
von SFr. 10,-/Stück. 

Jetzt ärgert mich kein 
Absturz mehr, das Arbei¬ 
ten ist zum Genuß ge¬ 
worden. Josef Kronenberg 
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LISTINGS 




APFEL- 

MÄNNCHEN 

Dieses Programm stellt einen Beitrag zum Thema 
Computerkunst dar: Es erzeugt sogenannte Apfel¬ 
männchen. Dies sind Gebilde, die durch wieder¬ 
holte Anwendung einer einfachen mathematischen 
Formel auf komplexe Zahlen entstehen. 

Komplexe Zahlen bestehen aus einem Real- und 
einem Imaginärteil und haben allgemein die Form 
X+Y*i. Dabei stellt X den Realteil und Y den Ima¬ 
ginärteil dar, i dient der Erkennung des Imaginär¬ 
teils und ist mit SQR(-l) gleichzusetzen. Da X 
und Y Realzahlen sind, bilden die komplexen Zah¬ 
len ein zweidimensionales Koordinatensystem. 

Man spricht deshalb auch von der Ebene der 
komplexen Zahlen oder der komplexen Ebene, 
wobei der Absolutwert gleich dem Abstand zum 
Ursprung ist und sich nach dem Satz des Pythago¬ 
ras aus SQR(X*X+Y*Y) berechnet. Beim Rech¬ 
nen mit komplexen Zahlen gelten die gleichen 
Regeln wie beim Rechnen mit Summen (von 
Realzahlen). 

Wenn man nun die Zahl K=0+0i wiederholt in die 
Folge Kneu=Kalt/v2+C einsetzt, so hängt ihr Ver¬ 
halten stark von dem Wert von C ab. Ist der Abso¬ 
lutwert von C größer als 2, so entfernen sich die 
Folgeglieder recht schnell Vom Ursprung. Bei Zah¬ 



len mit einem Absolutwert von weniger als 2 irrt 
die Folge jedoch eine Weile in diesem Bereich her¬ 
um, bevor sie das „Gefängnis“ verlassen kann. 
Dazu können mehr als 1000 Folgeglieder vonnö¬ 
ten sein. Wenn man die Anzahl der Iterationen als 
Farbe auffaßt und die komplexe Ebene solcherma¬ 
ßen einfärbt, so ergibt sich in der Umgebung des 
Ursprungs eine Figur, die man ihrer Form wegen 
„Apfelmännchen“ getauft hat. Das besondere an 
dieser Figur sind ihre Ränder: Man kann sie näm¬ 
lich beliebig vergrößern, ohne eine kleinste Form 


zu entdecken. Jede Form wiederholt sich in irgend¬ 
einer Weise in irgendeiner Vergrößerung, wobei kei¬ 
ne Wiederholung völlig identisch zur anderen ist. 

So zeigen sich zum Beispiel ganze Apfelmännchen 
mit kleinen Abweichungen in manchen Bereichen 
des Randes. Doch auch Spiralen, Seepferdchen 
und andere Muster lassen sich dort finden. Das 
heißt aber nicht, daß die Erzeugung solcher Muster 
auch „Fractals“ genannt, reine Spielerei wären. 

Im Gegenteil: Wie man vor einiger Zeit festgestellt 
hat, treten solche Muster auch in der Natur auf. 
Nämlich bei der Änderung von magnetischen Zu¬ 
ständen. Dabei bilden sich an den Rändern von 
Magnetfeldzonen ähnliche Erscheinungen; mögli¬ 
cherweise ein Zeichen dafür, daß es die vielgesuch¬ 
ten kleinsten Teilchen in der Materie nicht gibt. 
Doch gleichgültig von welchem Standpunkt man 
die Fractals betrachtet, schön sind sie allemal. 

Das Programm Fracta’l wird'unter TI-Basic wie 
folgt aufgerufen: Zunächst muß mit CALL 
FILES(l) und NEW der Speicherplatz für den Disc- 
controller begrenzt werden. Dann wird mit CALL 
LOAD das Vorprogramm für das Abspeichem des 
fertigen Bildes geladen. Danach muß noch das 
Hauptprogramm.mittels CALL LOAD ge¬ 
laden werden. Zum Start des Programms gibt man 
CALL LINK(“START“, Xvon, Xbis, Yvon, Ybis, 
Anzahl) ein. Dabei sind Xvon, Xbis, Yvon,Ybis 
die Feldgrenzen für den Bereich der komplexen 
Zahlen, der berechnet werden soll, Anzahl ist die 
Anzahl der Iterationen, die maximal durchgeführt 
werden sollen. Um das gesamte Apfelmännchen zu 
berechnen, sind als Parameter —0.7,2.3,-1.25,1.25, 
50 geeignet. Je kleiner der gewählte Bereich ist, 
desto größer muß man auch die Anzahl der Iteratio¬ 
nen wählen. 

Das Programm arbeitet mit dem BITMAP-MODE 
in Schwarz/Weiß, um die größtmögliche Auflösung 
zu nutzen. Die Anzahl der zum Verlassen des Ur¬ 
sprungsbereichs benötigten Iterationen werden des¬ 
halb nicht als Farbe interpretiert, sondern nach fol¬ 
gendem Schlüssel aufgeteilt: Ungerade Anzahl — 
weiß, gerade Anzahl - schwarz. Die. Routine zum 
Abspeichem des fertigen Bildes kann beliebig er¬ 
setzt werden, falls eine andere Art der Speicherung 
erwünscht ist. Dabei muß lediglich beachtet wer¬ 
den, daß die Routine mit BLWP aufgerufen wird, 
und der Einsprungvektor mit dem Label SAVE 
DEFiniert werden muß. Die beigefügte Routine 
speichert nach Fertigstellung des Bildes und Drük- 
ken der ENTER-Taste das Bild auf DSK1 mit dem 
Namen MANDELBROT ab. Zum Laden eines Bil¬ 
des von Diskette ist der Loader (auf der Diskette 
DSKLOADO genannt) mittels CALL LOAD zu 
laden und mit CALL LINK(“LOAD“,“Filename“) 
zu starten. Auch dabei muß zunächst CALL 
FlLES(l) und NEW eingegeben werden. 

Das Programm ist mit dem EDITOR ASSEMBLER 
wie mit dem MINIMEMORY lauffähig. Wenn das 
EDITOR ASSEMBLER-Modul verwendet wird, 
muß allerdings das am Anfang stehende AORG- 
Statement (in allen drei Teilprogrammen) gelöscht 
und das Programm neu assembliert werden. Bei 
Verwendung des MINIMEMORY-Moduls ergibt 
sich jedoch der Vorteil, daß die Peripheriebox wäh¬ 
rend der Berechnung abgeschaltet werden kann, 
was bei der langen Dauer der Berechnung (zwi¬ 
schen 6 und 48 Stunden, je nach Iterationsanzahl) 
einige Lüftemmdrehungen spart und ein Übernacht¬ 
berechnen ermöglicht. 





LISTINGS 


X 

* 

X 

* 

X 

* 

X 

* 

X 

X 

* 

* 

* 

* 

* 

* 

X 

X 

* 

* 

* 

* 

X 


xxxxxxxxxxxxxxxx xxxx 



X 

* 

* 

* 

x 

* 

X 

X 

X 

X 

X 

* 

X 

* 

X 

X 

X 

X 

X 

X 

X 


MANDELBROTMENGE 

BY 

KARSTEN KUTOWSKI 

LADEN: -CALL FILES(1) 

-NEW 

-CALL LOAD("DSKn.DSKSAVEO" 
-CALL LOAD("DSKn.FRACTALO" 

STARTEN: 

-CALL LINK("START",XA,XE,YA,YE,I) 

XA = ANFANG REALTEIL 
XE = ENDE REALTEIL 
YA = ANFANG IMAGINAERTEIL 
YE = ENDE IMAGINAERTEIL 
I = ANZAHL DER ITERATIONEN 

1.TEIL: FRACTAL 

assembliert: ’fractalo* 


X 

X 

X 

X 

X 

X 

X 

)X 

)X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


XX * 
X XXXXXXXXXXXXXX X X X X xxxxxxxxxxxxxxxxxxx 
X xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 




AORG >7118 ERSTE FREIE ADRESSE IM MINIMEM-RAM 


VWTR 

EQU 

>6034 

UTILITY-EQUATES 

VSBW 

EQU 

>6024 


VSBR 

EQU 

>602C 


XMLLNK 

EQU 

>60 IC 


NUMREF 

EQU 

>6044 


KSCAN 

EQU 

>6020 


FAC 

EQU 

>834A 

FLOATING POINT ACKUMULATOR 

ARG 

EQU 

>835C 

ZWEITES ARGUMENT BEI BERECHNUNGEN 

FADD 

EQU 

>0600 

ADDITION 

FSUB 

EQU 

>0700 

SUBTRAKTION 

FMUL 

EQU 

>0800 

MULTIPLIKATION 

FDIV 

EQU 

>0900 

DIVISION _ * 1 - . 

FCOM 

EQU 

>0A00 

VERGLEICH 

CFI 

EQU 

>1200 

FLOATING POINT->INTEGER 

CIF 

EQU 

>7200 

INTEGER->FLOATING POINT (REF CIF BEI EDITOR ASSEMBLER) 


REF 

SAVE 

KANN ENTFALLEN WENN ABSPEICHERN NICHT ERWUENSCHT 


DEF 

START 



RDATA DATA >0002,>01E0,>0206,>03FF DATEN FUER WRITE ONLY REGISTER 
DATA >0403,>0536,>0607,>07F1 IM BITMAP MODE 


D2 DATA 2 

D191 DATA 191 BILDSCHIRMGRENZEN 

D255 DATA 255 


KX BSS 2 


22 






R100 BSS 8 FLOATING POINT VARIABLEN 

REAL2 BSS 8 

XU BSS 8 

XO BSS 8 

YU BSS 8 

•YO BSS 8 

DX BSS 8 

DY BSS 8 

XC BSS 8 

YC BSS 8 

M ' BSS 8 

N BSS 8 

XZ BSS 8 

YZ BSS 8 

XX BSS 8 

YY BSS 8 


BITMAP DATA WS,BITMAI BLWP-VEKTOR FUER EINSCHALTEN DES BITMAP MODES 

PLOT DATA WS,PLOT1 BLWP-VEKTOR FUER PLOT-ROUTINE 

WS BSS 32 BLWP-WORKSPACE 

GETP MOV 11,10 HOLT NUMERISCHEN PARAMETER 

CLR 0 

BLWP §NUMREF 
MOV 2,0 
BL §FFAC 
B *10 

FFAC LI 1,FAC COPIERT REALWERT AUS DEM FAC NACH *R0 

MOV *l+,*0+ 

MOV *l+,*0+ 

MOV *l+,*0+ 

MOV *l+,*0+ " 

RT • 

TFAC LI 1,FAC COPIERT REALWERT VON *R0 ZUM FAC 

MOV *0+,*l+ 

MOV *0+,*l+ 

MOV *0+,*l+ 

MOV *0+,*l+ 

RT 

FARG LI 1,ARG COPIERT REALWERT AUS DEM ARG NACH *R0 

MOV *l+,*0+ 

MOV *l+,*0+ 

MOV *l+,*0+ 
liOV *l + ,*0+ 

RT 

TARG LI 1,ARG 

MOV *0+,*l+ 

MOV *0+,*i+ 

MOV *0+,*l+ 

MOV *0+,*l+ 

RT 

23 


COPIERT REALWERT VON *R0 NACH ARG 









BITMAI LI 1,RDATA SCHALTET BITMAP MODE EIN 

MOVB §3(1) , §>83D4 COPIE DES INHALTS VON VDP Ri 
• BITMA2 MOV *l + ,0 . 

BLWP §VWTR VDP REGISTER LADEN 

CI 1,RDATA+16 
JNE BITMA2 

CLR 0 PATTERN DESCRIPTOR INITIALISIEREN 

CLR 1 

BITMA3 BLWP §VSBW 
INC 0 

CI 0,>1800 
JNE BITMA3 

BITMA4 BLWP §VSBW SCREEN IMAGE TABLE INITIALISIEREN 

AI 1,>0100 
INC 0 

CI 0,>1B00 
JNE BITMA4 

LI 1,>D000 SPRITE ATTRIBUTE LIST: KEINE SPRITES 

BLWP §VSBW 

LI 0,>2000 COLOR TABLE INITIALISIEREN 

LI 1, >F100 FARBEN FG:WEISS HG:SCHWARZ 

BITMA5 BLWP §VSBW 
INC 0 

CI 0,>3800 
JNE BITMA5 
RTWP 

PLOT1 MOV *13+,0 
MOV *13+,1 
MOV *13,2 
AI 13,-4 
ANDI 2,1 
JEQ PL0T2 
MOV 1,4 
SLA 4,5 
SOC 1,4 

- ~ ANDI 4,>FF07 

MOV 0,5 
ANDI 5,7 
A 0,4 
S 5,4 

LI 3,>8000 
MOV 5,0 
SRC 3,0 
MOV 4,0 
CLR 1 

BLWP §VSBR 
SOC 3,1 
BLWP §VSBW 
PL0T2 RTWP 

START LI 2,XU HAUPTPROGRAMM 

LI 1,1 PARAMETER HOLEN 

BL §GETP 
LI 2,XO 
LI 1,2 
BL §GETP 
LI 2,YU 


SETZEN EINES PIXELS R0:YWERT R1:XWERT 

R2:GERADE->NICHTS TUN 

UNGERADE->PIXEL SETZEN 

IST R2 GERADE? 

WENN JA ABHAUEN 
BIT-ftcBYTEOFFSET BERECHNEN 


BIT JUSTIEREN 


BYTE AUS PATTERN DESCRIPTOR LESEN 
MIT JUSTIERTEM BIT OR-VERKNUEPFEN 
UND WIEDER SCHREIBEN 
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LI 1,3 - V 

BL §GETP - ' - : 

LI 2,YO : 

LI 1,4 
BL §GETP 
LI 2,ARG 
LI 1,5 ' 

BL §GETP 

BLWP §XMLLNK UMWANDELN DES LETZTEN PARAMETERS IN INTEGER 

DATA CFI 
MOV §FAC,§KX 

BLWP §BITMAP BITMAP-MODE EINSCHALTEN 

MOV §KX,7 
INC 7 

LI 0,100 100 -> REAL 100 

MOV 0,§FAC 

BLWP §XMLLNK 

DATA CIF 

LI 0,R100 

BL §FFAC 

LI 0,XO ‘ DX=(XO-XU)/255 X-ABSTAND ZWISCHEN ZWEI PUNKTEN 

BL §TARG <BEZUEGLICH DES BILDSCHIRMS) 

LI 0,XU • 

BL §TFAC 
BLWP §XMLLNK 
DATA FSUB 
LI 0,ARG 
BL §FFAC 
MOV §D255,§FAC 
BLWP §XMLLNK 
DATA CIF 
BLWP §XMLLNK 
DATA FDIV‘ 

LI 0,DX 
BL §FFAC 

LI 0,YO DY=(YO-YU)/191 Y-ABSTAND ZWISCHEN ZWEI'PUNKTEN 

BL §TARG (BEZUEGLICH DES BILDSCHIRMS) 

LI 0,YU 

BL §TFAC 

BLWP §XMLLNK 

DATA FSUB 

LI 0,ARG 

BL §FFAC 

MOV §D191,§FAC 

BLWP §XMLLNK 

DATA CIF . •>- 

BLWP §XMLLNK 

DATA FDIV 

LI 0,DY 

BL §FFAC 

MOV §D2,§FAC 2 -> REAL2 

BLWP §XMLLNK 
DATA CIF 
LI 0,REAL2 
BL §FFAC 

CLR 9 R9=0 Y-WERT ZAEHLER 

START1 CLR 10 R10=0 X-WERT ZAEHLER 

START2 LI 0,DX XC=XU + R10*DX AKTUELLER X-WERT IM KORDINATENSYSTEM 
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BL §TARG 
MOV 10,§FAC 
BLWP §XMLLNK 
DATA CIF ( 

BLWP §XMLLNK 
DATA FMUL 
LI 0,XU 
BL §TARG 
BLWP §XMLLNK 
DATA FADD 
LI 0,XC 
BL §FFAC 

LI 0, DY YC=YU+R9*DY AKTUELLER Y-WERT IM KOORDINATENSYSTEM 

BL §TARG 

MOV 9,§FAC 

BLWP §XMLLNK 

DATA CIF 

BLWP §XMLLNK 

DATA FMUL 

LI 0,YU 

BL §TARG 

BLWP §XMLLNK 

DATA FADD 

LI 0,YC 

BL §FFAC 

CLR 8 R8=0 ITERATIONSZAEHLER 

CLR §XZ XZ=0 INITIALISIEREN DER KOMPLEXEN ZAHL MIT DEN KOMPO 

CLR §YZ YZ=0 NENTEN XZ UND YZ (RESTLICHE 6 BYTES UNWICHTIG) 

START3 INC 8 ERHOEHEN DES ITERATIONSZAEHLERS 

LI 0,XZ XX=XZ*XZ QUADRAT DER X-KOMPONENTE 

BL §TARG 
LI 0,XZ 
BL §TFAC 
BLWP §XMLLNK 
DATA FMUL 
LI 0,XX 

~ BL §FFAC 

LI 0, YZ YY=YZ*YZ QUADRAT DER Y-KOMPONENTE 

BL §TARG 
• LI 0,YZ 
BL §TFAC 
BLWP §XMLLNK 
DATA FMUL 
LI 0,YY 
BL §FFAC 

LI 0,XZ YZ=2*XZ*YZ-YC NEUER IMAGINAERTEIL 

BL §TARG 
LI 0,REAL2 
BL §TFAC 
BLWP §XMLLNK 
DATA FMUL 
LI 0,YZ 
BL §TARG 
BLWP §XMLLNK 
DATA FMUL 
LI 0,ARG 
BL §FFAC 
LI 0,YC 
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LISTINGS 


BL §TFAC 
BLWP §XMLLNK 
DATA FSUB 
LI 0,YZ 
BL §FFAC 
LI 0,YY 
BL §TARG 
LI 0,XC 
BL §TFAC 
BLWP §XMLLNK 
DATA FADD 
LI 0,XX 
BL §TARG 
BLWP §XMLLNK 
DATA FSUB 
LI 0,XZ 
BL §FFAC 
C 7,8 

' JEQ START4 
LI 0,XX 
BL §TARG 
LI 0,YY 
BL §TFAC. 

BLWP §XMLLNK 
DATA FADD 
LI 0,R100 
BL §TARG 
BLWP §XMLLNK 
DATA FCOM 
MOVB §>837C,0 
SLA 0,2 
JOC ST ART 6 
MOV 10,0 
MOV 9,1 
MOV 8,2 
INC 2 

BLWP §PLOT 

START4 INC 10 

CI 10,256 
JEQ $+6 
B §START2 
INC 9 
CI 9,192 
JEQ START5 
B §START1 

START5 CLR 0 

MOVB 0,§>8374 
BLWP §KSCAN 
MOVB §>8375,0 
CI 0,>0D00 
JNE START5 
BLWP §SAVE 
BLWP 0 

START6 B §START3 
END 


XZ=XX-(YY+XC) NEUER REALTEIL 


I 

I 

I 

I 

I 

-I 


MAXIMALE ANZAHL VON ITERATIONEN DURCHGEFUEHRT ? 

WENN JA NAECHSTER PUNKT 

ABSOLUTWERT DER KOMPLEXEN ZAHL ( A 2) ERRECHNEN: XX+YY 


KLEINER ALS 10 ("2) 


WENN JA NAECHSTE ITERATION 

BILDSCHIRM-X-POSITION 

BILDSCHIRM-Y-POSITION 

FARBE <UNGERADE-WEISS/GERADE-SCHWARZ) 
INVERTIERTES BILDES WENN WEGGELASSEN 
PUNKT DARSTELLEN 
NAECHSTE SPALTE DES BILDSCHIRMS 
ENDE DER ZEILE ERREICHT ? 

WENN JA NAECHSTE ZEILE 
SONST NAECHSTEN PUNKT 
NAECHSTE ZEILE 

ENDE DES BILDSCHIRMS ERREICHT ? 

WENN JA AUFHOEHREN 
SONST WEITERMACHEN 
TASTATURABFRAGE 


ENTER-TASTE ? 

WENN NEIN ZURUECK 

SONST ABSPEICHERN <ENTFAELLT,WENN,UNERWUENSCHT) 
SOFTWARE-RESET 

RUECKSPRUNG FUER JOC, DA ENTFERNUNG ZU GROSS 
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DATA >050 fit 
DATA >0000 
DATA >4040 
DATA >1800 
DATA >000B 

PAB1 BSS 16 

* 

RDATA DATA >0002,>01E0,>0206,>03FF 
DATA >0403,>0536,>0607,>07F1 

BITMAP DATA WS,BITMAI 

WS BSS 32 

BITMAI LI 1,RDATA 

MOVB §3(1),§ >83D4 

BITMA2 MOV *l + ,0 
BLWP §VWTR 
CI 1,RDATA+16 
JNE BITMA2 
CLR 0 
CLR 1 

BITMA3 BLWP §VSBW 
INC 0 

CI 0,>1800 
JNE BITMA3 

BITMA4 BLWP §VSBW 
AI 1,>0100 
INC 0 ? 

CI 0,>1B00 
JNE BITMA4 
. LI 1,>D000 
BLWP §VSBW 
LI 0,>2000 
LI 1,>F100 

BITMA5 BLWP §VSBW 
INC 0 

CI 0,>3800 
JNE BI/TMA5 
RTWP 

LOAD CLR 0 
LI 1,1 
LI 2,PAB1-1 
LI 3,>0F00 
MOVB 3,*2 
BLWP §STRREF 
BLWP §BITMAP 
LI 0,>1C00 
LI 1,PAB 
LI 2,25 - 

BLWP §VMBW 
LI 0,>1C0D. 

MOV 0,§>8356 
BLWP §DSRLNK 
DATA 8 

L00P2 CLR 0 

MOVB 0,§>8374 
BLWP §KSCAN 
MOVB §>3375,0 
CI 0,>0D00 
JNE L00P2 
BLWP §0 

END 
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LISTINGS 


WESTLICH 

DES 

STACHEL¬ 

DRAHTS 

Westlich des Stacheldrahts, oder die Simulation ei¬ 
ner Flucht über die deutsch/deutsche Grenze, ist 
ein Programm, das sich durch seine wirklichkeits- • 
nahe Aktualität sehr stark von den Schieß- und- 
Stirb-Spielen abhebt. 

Westlich des Stacheldrahts ist keine Verherrli- 
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chung von Gewalt und erst recht nicht von oben ge¬ 
nannten Szenen. 

Westlich des Stacheldrahts ist ein kritisches Pro¬ 
gramm, das den User anregen soll, sich der Situa¬ 
tion klar zu werden, in der er sich während des 
Spiels befindet, und sich zu verdeutlichen, daß dies 
kein Science-fiction-Märchen, sondern bittere Reali¬ 
tät ist. 

Die Hauptpersonen in „Westlich des Stacheldrahts“ 
ist ein DDR-Bürger, der lediglich versucht, seinen 
Traum vom goldenen Westen in die Realität um¬ 
zusetzen. 

Wäre da nicht der Stacheldraht . . . 

Dargestellt ist ein Grenzabschnitt mit den 5 Grenz¬ 
streifen: Stacheldraht, Todesstreifen, Sichtstreifen, 
Minensperre, Sicherungsstreifen. 

Ziel des Spiels ist es, diese zu überwinden. Hört 
sich zwar einfach an, aber die Erfolgsquote ist 
kaum höher als in der Realität. 

Gewürfelt wird mit >FIRE< bzw. mit >ENTER<. 
Dann wird der RUNNER bewegt. 

Sie müssen versuchen, eine Öffnung im Zaun zu 
finden, die bei jedem Rückschlag neu definiert 
wird. Dazu gilt es zunächst, den SICHERUNGS¬ 


STREIFEN zu überqueren, was zu Anfang noch 
ziemlich einfach ist. Danach betreten Sie die 
MINENSPERRE (max. 12 Minen) und werden 
nach Betreten einer Mine zurückgeschlagen. Haben 
Sie dieses Feld jedoch schadlos überstanden, gelan¬ 
gen Sie auf den SICHTSTREIFEN. Danger. Ist Ihr 
RUNWERT gleich dem WURFWERT, werden Sie 
um 7 Felder zurückgeworfen. Was Sie da erwartet... 
(Keine Neudefinition der Öffnung!) 

Danach folgt der TODESSTREIFEN, der identisch 
mit der MINENSPERRE ist, jedoch eine größere 
Anzahl von Minen besitzt. Versuchen Sie nun die 
Öffnung im STACHELDRAHT zu finden, was mit 
einer SOUNDORTUNG(!) möglich ist. Mit der zu¬ 
nehmenden Tiefe des Tones nähern Sie sich der 
Öffnung. ATTENTION. Sie befinden sich auf dem 
TODESSTREIFEN... 

Haben Sie die Öffnung gefunden, sind Sie nicht un¬ 
bedingt gerettet. Vielleicht war es eine Falle und ei¬ 
ne TRETMINE explodiert! Andernfalls begeben Sie 
sich so schnell wie möglich auf das Haus zu. Sie 
sind gerettet wenn der RUNWERT gleich dem 
WURFWERT ist. 

Zu erwähnen wäre noch: Werden Sie zurückgeschla¬ 
gen, erscheint ein PANZER und der Schwierigkeits¬ 
grad des ‘Spiels 4 nimmt zu. Stehen Sie jetzt in einer 
Linie mit einem PANZER,bei identischem WURF- 
und RUNWERT, eröffnet dieser das Feuer . . . ! 

Ist die Anzahl der PANZER auf 8 angestiegen, ster¬ 
ben Sie bei erneutem Schußwechsel, und Ihre 
POINTS gehen nicht in die HIGHSCOREWERTUNG 
ein, die hier logischerweise(!) die niedrigste Punkt¬ 
zahl wertet. 

- Versuchen Sie nicht, von WESTEN gegen-den 
STACHELDRAHT zu laufen. 

Das könnte Ihre Träume zerschlagen! 


AUCH OHNE JOYSTICK RICHTUNG WESTEN... 

„Westlich des Stacheldrahts“ wird mit JOYSTICK 
2 gesteuert. 

Diejenigen, die ohne Joystick in den Westen wollen, 
müssen folgende Zeilen umändern: 

1290 CALL KEY(O.K.S) 

1310 IF K=13 THEN 1320 ELSE 1290 
1540 CALL KEY(O.K.S) 

1550 IF S=0 THEN 1540 
1560 IF K=69 THEN 1570 ELSE 1630 
1630 IF K=88 THEN 1640 ELSE 1700 
1700 IF K=83 THEN 1710 ELSE 1770 
1770 IF K=68 THEN 1780 ELSE 1840 

FUNKTIONSBLÖCKE 

00100-00120 TITEL 

00150-00340 ASCII DEF 

00345-00560 COLOR 

00570-00970 BILDAUFBAU 

00980-01140 INTRO 

01150-01270 VORBEREITUNG 

01280-01400 WURF 

01410-01460 DISPLAY AT 

01470-02200 RUN/POS 

02210-03050 SEKTORENFESTLEGUNG 

03060-03150 SOUNDORTUNG 

03160-04240 POSITIONIERUNG 

04250-04280 TRETMINE 

04290-04620 MINEN VERTEILUNG 

04630-05090 PANZERROUTINE % 

05 100-10000 NACHTBILD ^ 
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10 REM******************** 


11 REM*West1.des Stachel-* 

12 REM* Drahtes * 

13 REM* Copyright by * 

14 REM* Thomas Jerusalem * 

13 REM* . * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* optional:XBasic * 

20 REM* * 

21 REM* * 

23 REM* Speicherbelegung * 

24 REM* 12036 Bytes * 


23 REM******************** 

26 REM 

110 CALL CLEAR 

120 PRINT "WESTLICH DES STAC 

HELDRAHTS": : .c_ 

DateControl 1984" 

130 RANDOMIZE 
170 REM 

180 CALL CHAR(34,"000A58783C 
7F380C") 

190 CALL CHAR(128,"FFFF99999 
999FFFF") 

200 CALL CHAR(36,"0000000000 
0000FF") 

210 CALL CHAR(37,"0103676F7F 
7F7FFF") 

220 CALL CHAR(38,"80C0E0F0F8 
FCFEFF") 

230 CALL CHAR(89,"0000020CFE 
1F7F3E") 

240 CALL CHAR(33,"0828200318 
026200") 

230 CALL CHAR(136,"000000003 

03C1F3F") 

260 CALL CHAR(137,"7F7E3E7CF 
8F0E0C0") 

270 CALL CHAR(40,"203C24EF04 
247E24") 

280 CALL CHAR(64,"00FEFEFEFE 
FEFEFE") 

290 CALL CHAR(72,"FF01010101 
010101 ") 

300 CALL CHAR(80,"FF01010101 
010101 ■) 

310 CALL CHAR(41,"0000187EFF 
7E5A5A") 

320 CALL CHAR(42,"7E7E3C3C3C 
242424") 

330 CALL CHAR(88,"FF01010101 
010101 ") 

340 CALL CHAR (43, " 18181 < C7C18 
1E1230") 

345 CALL CLEAR 
330 CALL SCREEN(4) 

360 GOTO 480 

370 CALL COLOR(1,2,1) 

380 FOR 1=2 TO 5 


L 

I 
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390 CALL COLOR(1,2,1) 

400 NEXT I 

410 CALL COLOR(6,2,11) 

420 CALL COLOR(7,2,13)* 

430 CALL COLOR(8,2,12) 

440 FOR 1=9 TO 13 
450 CALL COLOR(1,2,1) 

460 NEXT I 
470 RETURN 
480 REM 

490 FOR 1=1 TO 13 
500 CALL COLOR(1,4,4) 

510 NEXT I 
320 REM 

330 GOSUB 3920 

540 REM 

550 GOSUB 4290 
560 GOSUB 4450 

570 REM 

580 PRINT "_(0HHPPPPXXXX 

german.(0HH PPPPXXXX 

democratic_ (0HHPPPPXXXX. 

. . .repub1ic" 

390 PRINT "....(0HHHPPPXXXX" 

;»_(00HHPPPPXXX":"....( (0 

HHHPPPXXXXX": 7 . ..(00HHPPPP 


P X X X" 

600 PRINT ".((0HHPPPPPXX 

XXXXX" : ".(0HHHHHPPXXXXX 

XX": ".(0HHHHHPPXXXXXXX" 

610 PRINT ".<@@@0HHPPPP 

PPXXX":"......<(( (0HHPPPPPPX 

XX" : ".(0HHPPPPPPXXXX 

XXXX" 

620 PRINT ".«,...<0HHPPPP 

PPPPXXXXXX" 

630 FOR 1=1 TO 2 

640 PRINT' ".(0HHHHHH 

HHHPXXXXXXX" 

650 NEXT I 

660 PRINT ".(0000000 

0HHPXXXXXXX.........<<<<<<<< 

0HHPPPPPPXX. .. ,....( 

*0HHPPPPPPXX" 

670 PRINT "...- < 

0HHPPPPPPXX" 

680 PRINT "-federal.< 

0HHPPPPPPPP repub1 ic...... . < 

0HHPPPPPPPP. . . o-f germany. . . < 
0HHPPPPPPPP" 

690 CALL HCHAR(DOORZ,DOORS,4 
0) 

700 CALL HCHAR(li,4,128,3) 
710 CALL HCHAR <11,7,36) 

720 CALL HCHAR(10,4,37) 

730 CALL HCHAR(10,5,128) 

740 CALL HCHAR <10,6,38) 

750 CALL HCHAR(6,22,42) 

760 CALL HCHAR(5,22,41) 

770 CALL HCHAR(12,30,42) 



L 


30 





















KOMMT REGELMASSIG 


ZU 

IHNEN 

INS 

HAUS 


Finden Sie Ihre TI-REVUE nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder „Ihr" Kiosk 
nicht beliefert wurde? Kein Problem! Für ganze 
60,- DM liefern wir per Post 12 Hefte ins Haus 
(Ausland 80,- DM). Einfach den Bestellschein 
auf der nächsten Seite ausschneiden - fotoko¬ 
pieren oder abschreiben, in einen Briefumschlag 
und ab per Post (Achtung: Porto nicht vergessen). 
MSX-REVUE kommt dann pünktlich ins Haus. 


Das Magazin 
furTI99-4A 


WICHTIGE RECHTLICHE 
GARANTIE! 

Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 


Verlag widerrufen - Postkarte ge¬ 
nügt. Ansonsten läuft dieser Auf¬ 
trag jeweils für zwölf Ausgaben, 
wenn ihm nicht vier Wochen vor 
Ablauf widersprochen wird, weiter. 


special Assembler special 


* 


TI 99/4A 


Über 90 Seiten 
Alles über 
Assembler für 

den TI 99/4A 


MACHEN SIE MEHR AUS 
IHREM TI MIT ASSEMBLER 


ABSOLUT LETZTES ANGEBOT 

ov Nur noch 30 

^ Exemplare beim 

* 

Verlag vorrätig! 



Ein Muß für Jeden 

Assembler- An wender! 



Die qroße Börse für jeden Zweck in der TI REVUE. Kostenlos für Privat-Inserenten. Sportbillig für gewerbliche Anbieter. Einfach 
Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post - Freimachen nicht vergessen! - Unsere Adresse steht auf dem 
Coupon, ebenso der Preis für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensichtlich gewerb¬ 
liche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen Vorbehalten müsfcen, insbesondere, 
wenn deren Inhalt nicht Tl-typisch ist oder gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht angenommen. 
Für Privatanbieter: maximal acht Zeilen ä 28 Anschläge. Für gewerbliche Anbieter: 5 DM p. mm. 



TI REVUE 

Anzeigenabteilung 

Postfach 1107 
8044 Lohhof 


Name 


Vorname 


Straße/Hausnr. 


PLZ/Ort 


ABO- SERVICE -KARTE 


COUPON 


Ich nehme zur Kenntnis, 
daß die Belieferung 
erst beginnt, wenn die Abo- 
Gebühr dem Verlag 
zugegangen ist.' 


TI REVUE 

Abo-Service 9/86 

Postfach 1107 

8044 UNTERSCHLEISSHEIM 


Ja, ich möchte von Ihrem Angebot Gebrauch machen. 

Bitte senden Sie mir bis auf Widerruf ab sofort jeweils die nächsten zwölf 
Ausgaben an untenstehende Anschrift. Sollte ich nicht vier Wochen vor 
Ablauf schriftlich kündigen, läuft diese Abmachung automatisch weiter. 

Name ---- : - 

Vorname____—- 

Straße/Hausnr-^_____—-- 

PLZ/Ort________ 

Ich bezahle; ' 

□ per beiliegendem Verrechnungsscheck 

□ gegen Rechnung > ... 

□ bargeldlos per Bankeinzug von meinem Konto (TJI9/86) 

bei (Bank) und Ort_____ 

Kontonummer___ 

Bankleitzahl _:- 

(steht auf jedem Kontoauszug) 

Unterschrift---<- 

Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 

Unterschrift 
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Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen 
die Listings dieses Heftes auf 
□ Diskette zum Preis von (25,— DM) 

Ich zahle: 

Bar — per beigefügtem Geld ( ) 

per beigefügtem Scheck ( ) 

Gegen Bankabbuchung am Versandtag ( ) 

Zutreffendes bitte ankreuzen! 

Meine Bank (mit Ortsname). 


Meine Kontonummer. 

Meine Bankleitzahl.(steht auf jedem Bankauszug) 

Vorname.Nachname. 

Str./Nr.PLZ/Ort .9/86 

Hiermit bestätige ich mit meiner Unterschrift, Ihre Verkaufsbedingungen gelesen zu haben und zu akzeptieren. 


Unterschrift . .. 

TI-REVUE 

KASSETTENSERVICE 9/86 

Postfach 1107 Verkaufsbedingungen: Versand nur gegen Vorauskasse oder Bankabbuchung. 

8044 Unterschleißheim Umtauschrecht bei Nichtfunktionieren. Keine Nachnahme. 

( 

_>§--- 



Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen 

( . ) Exemplar(e) TI SPECIAL (Nr. 4) 14,80 ( ) Exemplar(e) TI ASSEMBLER SPECIAL 19,80 

Zutreffendes bitte ankreuzen! 

Ich zahle: 

per beigefügtem Scheck / Schein ( ) 

Gegen Bankabbuchung am Versandtag ( • ) 

Meine Bank (mit Ortsname)....... 

Meine Kontonummer........ .. 

Meine Bankleitzahl.....(steht auf jedem Bankauszug) 

Vorname......Nachname..... .. 

Str./Nr. ..... PLZ/Ort .... •• . 

Verkaufsbedingungen: Versand nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme! 

Unterschrift. 

Bitte ausschneiden und einsenden an 

TI-REVUE 

Special-Service 9/86 

Postfach 1107 

8044 Unterschleißheim 


33 























VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


Haber 'Haben Sie.einenTI 99/A? Können Sie pro¬ 
grammieren? In Basic oder Maschinensprache? Dann 
bietet TI*- REVUE Ihnen die Möglichkeit, damit 
Geld zu verdienen. 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam¬ 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware - eventuelle Erweiterungen - 
benutzte Peripherie - hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-! 


Sollten Sie keinen Drucker haben, genügt der Daten¬ 
träger. 

Sie erhalten Ihre Kassette/Diskette selbstverständ 
lieh zurück, wenn Sie einen ausreichend frankierten 
Rückumschlag mit Ihrer Adresse beifügen. 

Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzen Sie bitte anhängendes Formu¬ 
lar! (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete" Programme ziemlich schnell er¬ 
kennt). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto¬ 
kopieren. 


PROGRAMMANGEBOT 


Name des Einsenders: _ 

Straße/Hausnr./Tel.: _ 

Plz/Ort: _ 

Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt ( ) Listings ( ) Kassette ( ) Diskette 
Ich versichere, der alleinige Urheber des Programmes zu sein! 

Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es 
in den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung, das Copy¬ 
right geht auf den Verlag über. 


Rechtsverbindliche Unterschrift 


TI-REVUE 

Postfach 1107 
8044 Lohhof 
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700 CALL HCHAR(11,30,41) 

790 B$="run" 

800 ZZ=14 
810 SS=2 
820 GOSUB 1410 
830 B$="pt5 H 
840 ZZ=i6 
850 SS=2 
860 GOSUB 1410 
870 B$="hsc" 

880 ZZ=18 
890 SS=2 
900 GOSUB 1410 
910 B$=STR$(HS) 

920 ZZ=18 
930 SS=6 
940 GOSUB 1410 
950 GOSUB 370 
960 FOR D=1 TO 1000 
970 NEXT D 
980 REM 

990 CALL HCHAR(5,32,43) 

1000 CALL HCHAR(5,32,33) 

1010 FOR 1=32 TO 29 STEP -1 
1020 CALL HCHAR(6,1,43) 

1030 CALL HCHAR(6,I,33) 

1040 NEXT I 

1050 CALL HCHAR(7,29,43) 

1060 CALL HCHAR(7,29,33) 
1070 CALL HCHAR(8,29,43) 

1080 CALL HCHAR(8,29,33) 
1090 FOR 1=8 TO 10 
1100 CALL HCHAR(1,28,43) 
1110 CALL HCHAR(I,28,33) 
1120 NEXT I 

1130 CALL HCHAR(10,27,43) 
1140 CALL HCHAR <10,27,33) 
1150 REM 
1160 RZ=10 
1170 RS=26 

1180 CALL HCHAR(RZ,RS,43) 

1190 GOSUB 1280 

1200 GOTO 1470 

1210 RX=RX+1 

1220 ZAE=ZAE+1 

1230 GOSUB 1920 

1240 PTS=PTS+1 

1250 GOSUB 2150 

1260 GOTO 1470 

1270 GOTO 1270 

1280 REM 

1290 CALL KEY(2,K,S) 

1300 IF S=0 THEN 1290 

1310 IF K=18 THEN 1320 ELSE 

1290 

1320 REM 

1330 WURF=INT(RND*6)+1 
1340 ZAE=0 
1350 RX=0 
1360 B*=STR$(WURF) 


1370 ZZ=14 
1380 SS=6 
1390 GOSUB 1410 
1400 RETURN 
1410 REM DISPLAY 
1420 A$=B* 

1430 FOR XX=i TO LEN(A$) 

1440 CALL HCHAR<ZZ,SS+XX,ASC 
<SEG$(A$,XX,1))) 

1450 NEXT XX 
1460 RETURN 
1470 REM RUN 

1480 IF <RZ=11)*(RS=7)THEN 1 

490 ELSE 1520 

1490 CALL HCHAR(11,7,36) 

1500 RS=8 

1510 CALL HCHAR(RZ,RS,43) 
1520 IF PTS=100 THEN 1530 EL 
SE 1540 

1530 GOSUB 5100 
1540 CALL JOYST(2,X,Y) 

1560 IF Y=4 THEN 1570 ELSE 1 
630 

1570 CALL HCHAR(RZ,RS,33) 

1500 RZ=RZ-1 

1590 GOSUB 2210 

1600 GOSUB 2360 

1610 CALL HCHAR(RZ,RS,43) 

1620 GOTO 1850 

1630 IF Y=-4 THEN 1640 ELSE 

1700 

1640 CALL HCHAR(RZ,RS,33) 

1650 RZ=RZ+1 

1660 GOSUB 2210 

1670 GOSUB 2360 

1680 CALL HCHAR(RZ,RS,43) 

1690 GOTO 1850 •• 

1700 IF X=-4 THEN 1710 ELSE 
1770 

1710 CALL HCHAR(RZ,RS,33) 

1720 RS=RS-1 

1730 GOSUB 2210 

1740 GOSUB 2360 

1750 CALL HCHAR(RZ,RS,43) 

1760 GOTO 1850 

1770 IF X=4 THEN 1780 ELSE 1 
840 

1780 CALL HCHAR(RZ,RS,33) 

1790 RS=RS+1 

1800 GOSUB 2210 

1610 GOSUB 2360 

1820 CALL HCHAR(RZ,RS,43) 

1830 GOTO 1850 

1840 GOTO 1540 

1850 IF RX +1<WURF THEN 1210 

1860 GOSUB 4750 

1870 ZAE=ZAE+1 

1880 GOSUB 1920 

1890 PTS=PTS+1 

1900 GOSUB 2150 
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1910 GOTO 1980 
1920 REM ZAE 
1930 B*«=STR*(ZAE) 

1940 ZZ=14 
1930 SS-8 
1960 GOSUB 1410 
1970 RETURN 

1900 IF <RZ=11)*(RS=7)THEN 1 

990 ELSE 2070 

1990 CALL COLOR(13,2,11) 

2000 CALL HCHAR(11,7,36) 

2010 GOSUB 2090 
2020 B$= "saved" 

2030 ZZ=14 
2040 SS=6 
2030 GOSUB 1410 
2060 GOTO 4940 
2070 GOSUB 2090 
2080 GOTO 2140 
2090 B$="..." 

2100 ZZ=14 
2110 SS=6 
2120 GOSUB 1410 
2130 RETURN 
2140 GOTO 1190 
2150 REM 

2160 B$=STR$(PTS) 

2170 ZZ=16 
2180 SS=6 
2190 GOSUB 1410 
2200 RETURN 
2210 REM MAX. 

2220 IF RZ=0 THEN 2230 ELSE 

2230 

2230 RZ=RZ+1 
2240 GOTO 2350 
2230 IF RZ=24 THEN 2260 ELSE 
2280 

2260 RZ*=RZ-1 
2270 GOTO 2350 
2280 IF RS=33 THEN 2290 ELSE 
2310 

•2290 RS=RS-1 
2300 GOTO 2350 
2310 IF RS=0 THEN 2320 ELSE 
2340 

2320 RS=RS+1 
2330 GOTO 2350 
2340 GOTO 2350 
2330 RETURN 
2360 REM 

2370 IF <RZ>0)*(RZ<13)*(RS>6 

>#<RS<11)THEN 2430 

2380 IF (RZ >0)*(RZ<19)*(RS >1 

0)*<RS<16)THEN 2340 

2390 IF <RZ>0)*(RZ<24)*(RS>1 

5)#<RS<21)THEN 2710 

2400 IF <RZ>7)*(RZ<24)*(RS>2 

0)#<RS<26)THEN 2830 

2410 IF <RZ>12)*(RZ<24)*(RS> 



25)(RS< 31)THEN 2940 
2420 RETURN 
2430 REM 

2440 IF <RZ>0)*(RZ<7)*(RS=7) 
THEN 3010 

2450 IF <RZ>5)*(RZ<9)*(RS=8) 
THEN 3010 

2460 IF (RZ>7)*(RZ<13)*(RS=9 
)THEN 3010 

2470 IF <RZ=12)*(RS=10)THEN 
3160 

2480 IF <RZ>0)*(RZ<6)*(RS=8) 
THEN 3360 

2490 IF (RZ>4)#(RZ<8)*(RS=9) 
THEN 3360 

2500 IF <RZ>6)*(RZ<12)*(RS=1 
0)THEN 3360 

2510 IF <RZ>0)*(RZ<5)*(RS=9) 
THEN 3720 

2520 IF <RZ>0)*(RZ<7)*(RS=10 
)THEN 3720 
2530 RETURN 
2540 REM 

2550 IF (RZ=12)*(RS=11)THEN 
3160 

2560 IF <RZ>11)*(RZ<19)*(RS= 

12) THEN 3010 

2570 IF <RZ=18)*(RS>12)*(RS< 
16)THEN 3160 

2580 IF (RZ=li)*(RS>10)*(RS< 
14)THEN 3360 

2590 IF (RZ>11)*(RZ<18)*(RS= 

13) THEN 3360 

2600 IF <RZ=17)*(RS>13.)*(RS< 
16)THEN 3360 

2610 IF <RZ>3)*(RZ<11)*<RS=1 

1) THEN 3720 

2620 IF <RZ>5)*(RZ<11)*<RS=1 

2) THEN 3720 

2630 IF <RZ>8)*<RZ<ll)*<RS=i 

3) THEN 3720 

2640 IF (RZ>8)*(RZ<17)*(RS>1 

3)*<RS<16)THEN 3720 

2650 IF (RZ>0)*(RZ<4)*(RS>10 

)* <RS<15)THEN 3770 

2660 IF (RZ>3)*<RZ<6)*<RS>11 

)*(RS<15)THEN 3770 

2670'IF <RZ=5)*(RS=15)THEN 3 

770 

2680 IF (RZ>5)*(RZ<9)*(RS>12 

)*(RS<16)THEN 3770 

2690 IF <RZ>0)*(RZ<5)*(RS=15 

)THEN 3900 

2700 RETURN 

2710 REM 

2720 IF (RZ=18)*(RS>15)*(RS< 
20)THEN 3160 

2730 IF (RZ>18)*(RZ<24)*(RS= 
19)THEN 3010 

2740 IF <RZ=17)*(RS>15)*(RS< 
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21)THEN 3360 

2750 IF <RZ>17)*(RZ<24)*(RS= 
20)THEN 3360 

2760 IF <RZ>14)*(RZ<17)*(RS> 

15)*(RS<21)THEN 3720- 

2770 IF <RZ>6)*<RZ<15)*<RS>1 

5)*(RS<16)THEN 3770 

2780 IF <RZ>10)*(RZ<15)*(RS> 

17)*(RS<21)THEN 3770 

2790 IF <RZ>0)#(RZ<7)*<RS>15 

)#<RS<19)THEN 3900 

2800 IF <RZ=6)*(RS>18)*<RS<2 

1)THEN 3900 

2810 IF <RZ>6)*(RZ<11)*<RS>1 
7)#<RS<21)THEN 3900 
2820 RETURN 
2830 REM 

2840 IF <RZ>14)*(RZ<24)*<RS> 

20) *<RS<23)THEN 3720 

2850 IF <RZ>10)*<RZ<15)*(RS= 

21) THEN 3770 

2860 IF <RZ=14)*(RS=22)THEN 
3770 

2870 IF <RZ>13)*(RZ<24)*(RS= 
23)THEN 3770 

2880 IF <RZ>17)*(RZ<24)*(RS> 
23)*(RS< 26)THEN 3770 
2890 IF (RZ>7)*(RZ<li)*(RS=2 
1)THEN 3900 

2900 IF <RZ>7)*(RZ<14)*(RS>2 
i)#(RS<25)THEN 3900 
2910 IF <RZ=13)*(RS=25)THEN 
3900 

2920 IF (RZ>13)*(RZ<18)*(RS> 
23)*<RS<26)THEN 3900 
2930 RETURN 
2940 REM 

2950 IF <RZ>17)*(RZ<24)*(RS> 
25)*<RS<29)THEN 3770 . 

2960 IF (RZ>20)*(RZ<24)*(RS> 

28) *<RS<31)THEN 3770 

2970 IF <RZ>12)*(RZ<18)*(RS> 
25)#<RS<30)THEN 3900 
2980 IF <RZ>14)*(RZ<21)*(RS= 
30)THEN 3900 

2990 IF <RZ>17)*(RZ<2i)*(RS= 

29) THEN 3900 
3000 RETURN 
3010 REM 

3020 GOSUB 3060 

3030 IF <RZ=DOORZ)*(RS=DOORS 

)THEN 3210 

3040 RS s =RS+1 

3050 GOTO 3350 

3060 REM 

3070 S0U=23-(23-D00RZ) 

3080 IF RZ >DOORZ THEN 3120 
3090 IF RZ<DOORZ THEN 3140 E 
LSE 3100 

3100 CALL SOUND(-100,-1,0) 



3110 GOTO 3150 

3120 CALL SOUND<-100,(RZ-SOU 
)*110,0) 

3130 GOTO 3150- 
3140 CALL SOUND(-100,(SOU-RZ 
)*110,0) ' 

3150 RETURN 

3160 REM 

3170 GOSUB 3060 

3180 IF (RZ=DOORZ)*(RS=DOORS 

)THEN 3210 

3190 RZ=RZ-1 

3200 GOTO 3350 

3210 IF MINED=1 THEN 3220 EL 
SE 3310 

3220 FOR 1=0 TO 30 STEP 3 
3230 CALL SOUND(100, -5, I) 
3240 NEXT I 

3245 CALL HCHAR(RZ,RS,34) 
3280 GOSUB 4630 
3290 RZ=10 
3300 RS=26 

3310 REM 

3311 GOSUB 5300 
3320 GOSUB 3920 
3330 REM 

3340 MINED=INT<RND*2)+1 

3350 RETURN 

3360 GOSUB 5260 

3370 IF <RZ<10)+(RZ=11)*(RS= 

10)THEN 3500 

3380 IF (RZ<17)+<RZ=17)*(RS> 
12)*<RZ=17)*<RS<16)THEN 3530 
3390 GOTO 3560 
3400 IF (RZ=MI1Z(1))*(RS=MI1 
S < 1)) + (RZ=MI1Z(2))*(RS=MI1S( 
2) ) + (RZ e MI1Z(3))*<RS»MI1S(3) 

)THEN 3520 

3410 IF <RZ=MI1Z<4))*<RS=MI1 
S(4))+<RZ-MIlZ<5))*<RS-MI1S( 
5))THEN 3520 
3420 RETURN 

3430 IF (RZ=MI2Z<1))*(RS=MI2 
SU) ) + <RZ“MI2Z (2) )*<RS«MI2S< 
2) ) + <RZ-MI2Z<3))*<RS«MI2S(3) 

)THEN 3550 

3440 IF <RZ=MI2Z(4))*<RS=MI2 
S <4) ) + <RZ«=MI2Z<5) )*<RS«MI2S< 
5))THEN 3550 
3450 RETURN 

3460 IF (RZ=MI3Z<1))*<RS=MI3 
S(l)) + (RZ=MI3Z(2))*(RS=MI3S( 
2) ) + (RZ=MI3Z(3))*(RS=MI3S(3) 

)THEN 3580 

3470 IF <RZ=MI3Z<4))*(RS=MI3 

S(4))+(RZ=MI3Z(5))*<RS=MI3S< 

5))THEN 3580 

3480 RETURN 

3490 GOTO 3710 

3500 GOSUB 3400 
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3310 RETURN 

3520 GOTO 3590 

3530 GOSUB 3430 

3540 RETURN 

3550 GOTO 3590 

3560 GOSUB 3460 

3570 RETURN 

3580 GOTO 3590 

3590 REM EXPL 

3600 FOR 1=0 TO 30 STEP 5 

3610 CALL SOUND(-100,-5,I) 

3620 CALL SOUND(-100,-6,I) 

3630 NEXT I 

3640 CALL HCHAR(R2,RS,34) 
3650 GOSUB 4630 
3660 RZ=10 
3670 RS=26 

3680 CALL HCHAR<RZ,RS,43) 
3690 REM 
3700 GOSUB 3920 
3710 RETURN 
3720 GOSUB 5260 
3730 IF ZAE=WURF-1 THEN 3750 
3740 RETURN 
3750 RS=RS+7 
3760 RETURN 
3770 GOSUB 5260 
3780 IF <RZ<9)*(RS<15)THEN 3 
820 

3790 IF (RZ<15)*(RS<21)THEN 
3840 

3800 IF (RS<26)THEN 3860 
3810 GOTO 3880 
3820 IF (RZ=TP1Z(1))*<RS=TPi 
S(l))+(RZ=TP1Z(2))#<RS=TP1S< 
2) ) + <RZ«=TPlZ(3) )#<RS«=TP1S<3) 

)THEN 3590 
3830 RETURN 

3840 IF (RZ=TP2Z(1))*(RS=TP2 
S<1))+<RZ=TP1Z(2))#<RS=TP1S< 
2))+(RZ=TP1Z(3))#<RS=TP1S<3) 

)THEN 3590 
3850 RETURN 

3860 IF (RZ=TP3Z<1))*<RS=TP3 
S<1) ) + (RZ«=TP3Z (2) )#<RS=TP3S< 
2))+<RZ«TP3Z<3))*<RS«*TP3S<3) 

>THEN 3590 
3870 RETURN 

3880 IF (RZ=TP4Z<1))*<RS=TP4 
S(l))+<RZ«TP4Z<2))#<RS=TP4S< 
21)+(RZ-TP4Z(3))#(RS=TP4S(3) 

)THEN 3590 
3890 RETURN 
3900 GOSUB 5260 
3910 RETURN 
3920 REM 
3930 REM 

3940 D00RZ=INT(RND*23)+1 
3950 IF D00RZ=6 THEN 3930 
3960 IF D00RZ=8 THEN 3930 
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3970 IF DOORZ<6 THEN 3980 EL 

SE 4000 

3980 D00RS=7 

3990 GOTO 4250 

4000 IF D00RZ=7 THEN 4010 EL 

SE 4030 

4010 D00RS=8 

4020 GOTO 4250 

4030 IF <D00RZ>8)*(D00RZ<12) 

THEN 4040 ELSE 4060 

4040 D00RS=9 

4050 GOTO 4250 

4060 IF D00RZ=12 THEN 4070 E 
LSE 4110 
4070 REM 

4080 DOORS=INT<RND*11)+10 

4090 IF (D00RS>9)*(D00RS<12) 

THEN 4100 ELSE 4070 

4100 GOTO 4250 

4110 IF DOORZ<18 THEN 4120 E 

LSE 4140 

4120 DOORS=12 

4130 GOTO 4250 

4140 IF DOORZ=18 THEN 4150 E 

LSE 4190 

4150 REM 

4160 D00RS=INT(RND*18)+13 
4170 IF (D00RS>12)*(D00RS<19 
)THEN 4180 ELSE 4150 
4180 GOTO 4250 

4190 IF DOORZ<24 THEN 4200 E 

LSE 32767 

4200 DOORS=19 

4210 GOTO 4250 

4220 IF (D00RZ=12)*(D00RS=9) 

+<D00RZ=12)*(D00RS«12)THEN 3 

930 

4230 IF <D00RZ=18)*(D00RS=12 
) + (D00RZ«=18)#(D00RS»19)THEN. 
3930 

4240 GOTO 3930 
4250 REM 
4260 REM 

4270 MINED=INT(RND*2)+1 

4280 RETURN 

4290 REM 

4300 RANDOMIZE 

4310 FOR M=1 TO 5 

4320 MI1Z(M)=INT<RND*11), + 1 

4330 MI1S(M)=INT((10-8+1)#RN 

D) +8 

4340 NEXT M 

4350 FOR N=1 TO 5 

4360 MI2Z(N)=INT((17-11+1)*R 

ND)+11 

4370 MI2S(N)=INT((15-11+1)*R 

ND)+11 

4380 NEXT N 

4390 FOR 0=1 TO 5 

4400 MI3Z(0)=INT<<23-17+1)*R 
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ND)+ 17 

4410 MI3S(0)=INT<<20-16+l)*R 

ND)+16 

4420 NEXT 0 

4430 RETURN 

4440 REM 

4450 RANDOMIZE 

4460 FOR P=1 TO 3 

4470 TP1Z(P)=INT<RND*8)+1 

4480 TP1S(P)=INT((15-11+1)#R 

ND)+11 

4490 NEXT P 

4500 FOR Q=1 TO 3 

4510 TP2Z(Q)=INT<(14-7+1)*RN 

D) +7 

4520 TP2S(Q)=INT((20-16+1)-K-R 

ND)+16 

4530 NEXT Q 

4540 FOR R=1 TO 3 

4550 TP3Z(R)=INT((23-11+1)-fcR 

ND)+11 

4560 TP3S(R)=INT<<25-21+i)*R 

ND)+21 - 

4570 NEXT R 

4580 FOR T=1 TO 3 

4590 TP4Z <T) = INT < (23-18 + 1) *R 

ND)+18 

4600 TP4S(T)=INT<(30-26+i)*R 

ND)+26 

4610 NEXT T 

4620 RETURN 

4630 REM 

4640 EX=EX+i 

4650 IF EX=8 THEN 4700 

4660 TANKS(EX)=EX*2+14 

4670 TANKZ(EX)=EX*2+2 

4680 CALL HCHAR(TANKZ(EX),TA 

NKS(EX),89) 

4690 RETURN 
4700 B$="dead" 

4710 ZZ=14 
4720 SS=6 
4730 GOSUB 1410 
4740 GOTO 4940 
4750 REM 

4760 IF EX<1 THEN 4930 
4770 REM 

4780 IF ( RZ=TANKZ (1))+ (RZ=TA 

NKZ(2))+<RZ=TANKZ(3))+(RZ=TA 

NKZ(4))+<RZ=TANKZ<5))+<RZ=TA 

NKZ(6))THEN 4830 

4790 IF <RZ=TANKZ(7))THEN 48 

30 

4800 IF <RS=TANKS <1)) + (RS=TA 
NKS(2))+<RS=TANKS<3))+<RS=TA 
NKS(4))+<RS«TANKS<5))+<RS-TA 
NKS(6))THEN 4920 
4810 IF (RS=TANKS(7))THEN 49 
20 

4820 RETURN 


4830 FOR 1=30 TO 0 STEP -3.7 

5 

4840 CALL SOUND(100,-6,1) 
4850 NEXT I 

4860 CALL HCHAR(RZ,RS,34) 
4870 RZ=10 
4880 RS=26 

4890 CALL HCHAR(RZ,RS,43) 

4900 GOTO 4630 

4910 RETURN 

4920 GOTO 4830 

4930 RETURN 

4940 REM 

4950 IF A$="dead" THEN 4979 
4960 IF (HS>PTS) + (HS=0)THEN 
4970 ELSE 4980 
4970 HS=PTS 

4979 CALL COLOR(14,1,1) 

4980 CALL KEY(0,K,S) 

4990 IF S=0 THEN 4980 

5000 IF K=46 THEN 5010 ELSE 
4980 

5010 PTS=0 

5020 ZAE=0 

5030 RX=0 

5040 EX=0 

5050 FOR Y=1 TO 8 

5060 TANKZ(Y)=0 

5070 TANKS(Y)=0 

5080 NEXT Y 

5090 GOTO 150 

5100 REM 

5110 GOTO 5170 

5120 CALL HCHAR(5,21,136) 

5130 CALL HCHAR(6,21,137) 

5140 CALL HCHAR(11,29,136) 

5150 CALL HCHAR(12,29,137) 

5160 RETURN 

5170 GOSUB 5120 

5180 CALL SCREEN(5) 

5190 CALL COLOR(3,16,1) 

5200 CALL COLOR(4,16,1) 

5210 FOR 1=9 TO 12 
5220 CALL COLOR(I,16,1) 

5230 NEXT I . 

5240 CALL COLOR<14,11,1) 

5250 RETURN 

5260 FOR 1=0 TO 30 STEP 10 

5270 CALL SOUND(100,-4,0) 

5280 NEXT I 

5290 RETURN 

5300 FOR J=i TO 3 

5310 FOR 1=220 TO 328 STEP 3 

5320 CALL SOUND(-100,1,0) 

5330 NEXT I 

5340 FOR 1=328 TO 220 STEP - 
3 

5350 CALL SOUND(-100,1,0) 
5360 NEXT I 
5370 NEXT J 
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LISTINGS 


5360 CALL COLOR(14,11,1) 
5384 CALL COLOR<13,2,11) 
5390 GOSUB 5120 
5400 RETURN 
5410 REM 


STEUERUNG 


RUN NORTH. 

. E/JST2 ’ 

RUN SOUTH. 

. X/JST2 

RUN WEST. 

. S/JST2 

RUN EAST. 

. D/JST2 

WURF. 

. ENTER/FIRE 

NEW TRY.. 

. > 

ASCII DEF 


CHAR 33. 

. FOOTSTEPS 

CHAR 34. 

. EXPLOSION 

CHAR 36-38/128 .... 

. ASYL 

CHAR 40. 

. STACHELDRAHT 

CHAR 41/42. 

. BEOBACHTUNGSTURM 

CHAR 43. 

. RUNNER 

CHAR 64. 

. TODESSTREIFEN 

CHAR 72.• 

. SICHTSTREIFEN 

CHAR 80. 

. MINENSPERRE 

CHAR 88. 

. SICHERUNGSSTREIFEN 

CHAR 89. 

. TANKS 

CHAR 136/137 . 

. SUCHSCHEINWERFER 

I J Y . 

. ZÄHLWERTVARIABLEN 

D. 

. ZEITVARIABLE 

MNOPQRT. 

. ORDNUNGSVARIABLEN 

A$ BS ZZ SS. 

. DISPLAY ZEILE/SPALTE 

RZ RS. 

. RUNNER ZEILE/SPALTE 

RX . 

. RUNNER ZÄHLWERT 

EX . 

. PANZER ZÄHLWERT 

ZAE. 

. ZÄHLWERT 

WURF. 

. WURFWERT 

PTS. 

. PUNKTWERT 

HS . 

. HISCOREWERT 

X Y. 

. JOYSTICKWERTE 

KS . 

. KEYBOARDWERTE 

SOU. 

. SOUNDDEFINITION 

MINED. 

. TRETMINE , 

DOORZ DOORS. 

. ÖFFNUNG ZEILE/SPALTE 

TANKZTANKS . 

. PANZER ZEILE/SPALTE 

TANK“( 1)—TANK“(8) . 

. PANZER 

MI 1 “(X)—MI3“(X) :. . . 

. MINEN 

TP1 “(X)—TP4“(X) .... 

. MINEN 

MI1Z-MI3Z.. . 

. MINEN ZEILE 

TP1Z-TP4Z. 

. MINEN ZEILE ' 

MI1S—MBS. 

* MINEN SPALTE 

TP1S-TP4S.. 

. MINEN SPALTE 


NUTZEN 
SIE UNSEREN 
ANZEIGEN 



r 


„Adresskartei“ ist ein Adressenverwaltungspro¬ 
gramm für den TI 99/4A, Ext. Basic, Disk und 
(optional) Drucker. Es kann bis zu einer vollen Dis¬ 
kette Adressen verwalten, was für die meisten Leser 
wohl völlig ausreichend ist. 

Im Menü kann man 7 Optionen anwählen, nämlich: 
SUCHE, EINTRAG, REGISTER, ÄNDERN, LISTE, 
LÖSCHEN und ENDE. 

SUCHE: 

Einfach den gewünschten Namen eingeben und die 
Suche auf der Diskette beginnt. Sind mehrere Adres¬ 
sen mit gleichen Namen gespeichert, werden diese 
nacheinander ausgegeben. 


EINTRAG: Bis zu 25 Einträge können nacheinan¬ 
der eingegeben werden, dann allerdings werden die¬ 
se automatisch auf Diskette geschrieben, um den 
Arbeitsspeicher des TI’s nicht zu überlasten. Dieser 
Vorgang benötigt eine gewisse Zeit, da der TI die 
Adressen alphabetisch sortiert. Dies ermöglicht 
dann sowohl eine schnelle Suche als auch einen 
schnellen Listenausdruck. 



REGISTER: Einfach einen Buchstaben eingeben. 
Nacheinander erscheinen dann alle Namen mit dem 
entsprechenden Anfangsbuchstaben und zugehöri¬ 
ger Adresse. 

ÄNDERN: Problemlos lassen sich in diesem Modus 
bestehende Einträge verändern. 

LISTE: Die gesamte Adreßkartei wird (alphabetisch 
geordnet) über PIO ausgegeben. 

LÖSCHEN: Einträge können so leicht vernichtet 
werden. , 

ENDE: Das Programm wird verlassen. ' 

Vor dem ersten Programmstart muß zunächst eine 
Datei auf einer Diskette initialisiert werden. Das ge¬ 
schieht im Direktmodus auf folgende Weise: 

OPEN #1:“DSK1.ADRESSEN“,OUTPUT, 

RELATIVE, INTERNAL, FIXED 120 
<ENTER> 

PRINT#1 ,REC 0:0 <ENTER> 

CLOSE#l <ENTER> 

Es empfiehlt sich, das Programm unter dem Namen 
LOAD zusammen mit der Datei auf einer Diskette 
abzuspeichem, damit es dann auch wirklich schnel¬ 
ler geht als mit dem Telefonbuch. 

Andreas Finke 
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10 
12 
14 
16 
18 
20 
22 
24 
26 
28 
30 
32 
34 
36 
38 
40 
42 
44 
46 
48 
50 
52 
54 
56 
58 
60 
62 
64 
66 
68 
70 
72 
74 
76 

78 OPTION BASE 1 
80 CALL SCREEN(2):: FOR 1=0 
TO 14 :: CALL COLOR(I,11,2): 
S NEXT I 

82 DIM NA*(25),VN*(25),ST*(2 
5),0R*<25),TE*<25) 

84 ! 

86 ! MENUE 

es i ===== 

90 ! 

92 CALL CLEAR :: DISPLAY AT < 
6 P 9)!"SUCHE <1>" :: DISPL 
AY AT<8,9):"EINTRAG <2>" :: 

DISPLAY AT<10,9):"REGISTER 
<3>" :: DISPLAY AT(12,9):"AE 
NDERN <4>" 

94 DISPLAY AT(14,9):"LISTE 
<5>" :i DISPLAY AT(16,9):" 
LOESCHEN <6>" :: DISPLAY AT < 
18,9):"ENDE <7>" 

96 CALL KEY(0,K,S):: IF S=0 
THEN 96 ELSE IF K<49 OR K>55 
THEN 96 

98 CALL CLEAR :: ON K-48 GOT 
a 108,118,154,166,178,202,20 
8 


********************** 


* ADRESSKARTEI * 

* * 

* COPYRIGHT BY * 

* * 

* ‘ ANDREAS FINKE * 

* * 

* BENOETIGTE GERAETE * 

* TI-99/4A KONSOLE * 

* EXT. BASIC * 

* 1 DISKLAUFWERK * 

* * 

* opt.: * 

* DRUCKER * 

* * 

* SPEICHERBELEGUNG * 

* 5702 BYTES * 

* * 


********************** 


ACHTUNG' ! ! ! 


Vor dem ersten Pro¬ 
grammstart bitte im 
DireUtmodus eingeben: 
OPEN #1:"DSK1.ADRESSEN 
",OUTPUT,RELATIVE,INTE 
RNAL,FIXED 120 <ENTER> 
PRINT #1,REC 010 
<ENTER> 

CLOSE #1 < ENTER > 



100 ! 

102 ! SUCHE 
104 « ===== 

106 ! 

108 CALL NAME(NAME*):: CALL 
LINSUCH(NAME*,1)S S GOTO 92 
110 ! 

112 ! EINTRAG 
114 ! ======= 

116 ! 

118 FOR Z=1 TO 25 :: CALL CL 
EAR 

120 DISPLAY AT < 1,12) : "EINTRA 
G u :: DISPLAY AT(2,10 ):rpt$( 
"*", 11 ) 

122 DISPLAY AT(4,3):"NAME ?" 
:: DISPLAY AT(8,3):"VORNAME 
?" :: DISPLAY AT<12,3):"STR 
ASSE ?" :: DISPLAY AT(16,3): 
"PLZ ORT ?" :: DISPLAY AT<20 
,3):"TELEFONNR. ?" 

124 ACCEPT AT(6,6)SIZE(-24): 
NA*(Z):: ACCEPT AT(10,6)SIZE 
<-24):vn*(Z):: accept at<14, 
6)size(-24):st*<Z):: accept 
AT(18,6)SIZE <-24):OR*(Z) 

126 ACCEPT AT(22,6)SIZE(-24) 

:te*(Z) 

128 DISPLAY AT(23,3) : "AENDER 
N <A> WEITER <ENTER>" 

130 CALL KEY(0,K,S):: IF S=0 
THEN 130 ELSE IF K-65 THEN 
DISPLAY AT(23,3)!" " il GOTO 
124 ELSE IF K< >13 THEN 130 
132 IF Z=25 THEN DISPLAY AT( 
23,3)ERASE ALL:"AUTOMATISCHE 
R EINTRAG" :: GOTO 140 
134 DISPLAY AT(23,3):"FERTIG 
<F> WEITER <ENTER>" 

136 CALL KEY(0,K,S):: IF S=0 
THEN 136 ELSE IF K-70 THEN 
DISPLAY AT(23,3)ERASE ALLS"E 
INTRAG ERFOLGT" :: GOTO 140 
ELSE IF K< >13 THEN 136 
138 NEXT Z . 

140 OPEN #1:"DSK1.ADRESSEN", 
INTERNAL,UPDATE,RELATIVE,FIX 
ED 120 

142 INPUt #1,REC 0:ANZ :S ■ FO 
R J-l TOZ !! CALL BUBBLE (.NA 
*(J),VN*(J),ST*(J),OR*(J),TE 
*(J),ANZ+J-1):: NEXT J 
144 PRINT #1,REC 0:ANZ+Z :: 
CLOSE #1 :: GOTO 92 
146 ! 

148 ! REGISTER 
150 ! ======== 

152 ! 

154 DISPLAY AT<1,12):"REGIST 
ER" :: DISPLAY AT(2,10):RPT* 
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<"*",12):: DISPLAY AT(8,3):" 
BUCHSTABE ?" :: ACCEPT AT(8, 
16)VALIDATE(UALPHA)SIZE <1):B 
U* 

136 DISPLAY AT<23,3):"WIRD G 
ESUCHT* :: CALL LINSUCH <BU*, 

2) :: GOTO 92 
158 ! 

160 ! AENDERN 

162 ! C2ESSBS 

164 ! 

166 DISPLAY AT(1,12):"AENDER 
N" ü DISPLAY AT <2,10) \ RPT* < 
"*",11) 

168 CALL NAME(NAME*):: CALL 
LINSUCH(NAME*,3):: GOTO 92 
170 ! 

172 ! LISTE 
174 ! ===== 

176 ! 

178 DISPLAY AT(23,3):"AUSDRU 
CK LAEUFT“ 

180 OPEN #1:"DSK1.ADRESSEN", 
SEQUENTIAL,INTERNAL,INPUT ,F 
IXED 120 

182 INPUT «1SANZ :: IF ANZ=0 
THEN 192 

184 OPEN #2:"PIO" 

186 PRINT #2:CHR*(27)JCHR*<4 

3) f CHR*(1)|TAB(30)f"ADRESSEN 
LISTE")CHR*(27 )\ CHR*(45)|CHR 
* (0 ): : : 

188 FOR 1=1 TO ANZ :: INPUT 
#1:A1*,A2*,A3*,A4«,A3* :: PR 
INT #2:Al *|" "|A2*|" " \ A3* 

I" "|A4*|" "|A3* 

190 NEXT I :: CLOSE #2 
192 CLOSE #1 :: GOTO 92 
194 ! 

196 ! LOESCHEN 
198 ! ======== 

200 ! 

202 DISPLAY AT(1,12):"LOESCH 
EN" :: DISPLAY AT(2,10):RPT* 
("*",12) 

204 CALL NAME(NAME*):: CALL 
LINSUCH(NAME*,4):: GOTO 92 
206 ! 

208 END 
210 ! 

212 ! 

214 ! 

216 ! UNTERPROGRAMME 
218 ! ============== 

220 ! 

222 SUB BUBBLE(Al*,A2*,A3*,A 
4*,A5*,A) 

224 IF A=0 THEN PRINT #1,REC 
l:Al«,A2*,A3«,A4*,A3* :: SU 
BEXIT 


L 

I 

S 

T 

I 

N 

G 

S 



226 FOR K=A TO 1 STEP -1 :: 
INPUT #1,REC K:B1*,B2*,B3*,B 
4*,B5* 

228 CALL UALPHA(A1*,B1*,JR): 
: IF TR=1 THEN PRINT #1,REC 
K+l:Bl*,B2*,B3*,B4*,B3* ELSE 
234 


K+l:Al*,A2* 


230 NEXT K 
232 K=0 

234 PRINT #1,REC 
,A3*,A4*,A3* 

236 SUBEND 

238 ! 

240 ! 

242 SUB UALPHA(A*,B*,TR) 

244 MI=MIN(LEN(A*),LEN(B*)): 

: for j=i to Mi :: si-asc(se 

G*(A*,J,1))I: S2-ASC(SEG*(B* 
,J,1) ) 

246 IF S1<S2 THEN TR=1 :: SU 
BEXIT 

248 IF S1>S2 THEN TR=0 :: SU 
BEXIT 


250 NEXT J 

252 IF LEN (A*XLEN(B*) THEN T 
R=1 ELSE TR=0 
254 SUBEND 
256 ! 

258 ! 

260 SUB LINSUCH(A$,J) 

262 FL=0 

264 OPEN #1:"DSK1.ADRESSEN", 
INTERNAL,FIXED 120,SEQUENTIA 
L,INPUT 

266 INPUT #l:ANZ :: IF ANZ=0 
THEN SUBEXIT 
268 FOR 1=1 TO ANZ 
270 INPUT #1:Al*,A2*,A3*,A4* 
,A3* :: IF J“2 THEN B*«SEG*( 
Al«,1,1)ELSE B*-Al* 

272 IF B*=A* THEN CALL CLEAR 
:: DISPLAY AT (8, 6) .* Al* :: D 
ISPLAY AT(10,6):A2* :: DISPL 
ay at(12,6):a3* :: Display a 
T(14,6):A4* :: DISPLAY AT <16 
,6):A5* ELSE 286 
274 FL=1 :: IF J=3 THEN 278 
ELSE IF J«4 THEN 282 ELSE DI 
SPLAY AT(23,3):"TASTE" , 

276 CALL KEY(0,K,S):: IF S=0 
THEN 276 ELSE 290 
278 DISPLAY AT(23,3):"AENDER 
N <A> WEITER <ENTER>" 

280 CALL KEY(0,K,S):: IF S=0 
THEN 280 ELSE IF K=65 THEN 
CLOSE «1 :: DISPLAY AT(23,3) 
:"WIRD GEAENDERT" :: GOTO 29 
6 ELSE IF K=13 THEN 290 ELSE 
280 

282 DISPLAY AT(23,2):”LOESCH 
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LISTINGS 


EN <L> WEITER <ENTER>" 

284 CALL KEY(0,K,S):: IF S=0 
THEN 284 ELSE IF K=76 THEN 
CLOSE #1 :: DISPLAY AT <23,2) 
:« WIRD 6EL0ESCHT" ll GOTO 3 
06 ELSE IF K“13 THEN 290 ELS 
E 284 ' 

286 IF FL=1 THEN FL=0 :: DIS 
PLAY AT(23,3):"TASTE" ELSE 2 
90 

288 CALL KEY(0,K,S):: IF S=0 
THEN 288 ELSE CLOSE #1 : : S 
UBEXIT 

290 NEXT I :: IF FL=0 THEN D 
ISPLAY AT(23,3)!"NICHT GEFUN 
DEN" ELSE 294 

292 FOR P=1 TO 400 :: NEXT P 
294 CLOSE #1 :: SUBEXIT 
296 ACCEPT AT(8,6)SIZE(-24): 
Bl* :: ACCEPT AT(10,6)SIZE(- 
24):B2* :: ACCEPT AT(12,6)SI 
ZE(-24):B3* :: ACCEPT AT(14, 
6)SiZE(-24):B4* :: accept at 
(16,6)SIZE(-24):B5* 

298 OPEN #1:"DSKi.ADRESSEN", 
INTERNAL,RELATIVE,FIXED 120, 
UPDATE 

300 IF A*=B1* THEN PRINT #1, 
REC I:B1*,B2*,B3*,B4*,B5* :: 
GOTO 310 

302 CALL LOESCHd, ANZ) : : CAL 
L BUBBLE<B1*,B2*,B3*,B4*,B5* 

,ANZ-1)!S PRINT #1,REC 0:ANZ 
304 CLOSE #1 :: SUBEXIT 
306 OPEN #l:"DSKl.ADRESSEN", 
INTERNAL,RELATIVE,FIXED 120, 
UPDATE 

308 CALL LOESCHd, ANZ) 

310 CLOSE #1 S: SUBEND 
312 ! 

314 !. 

316 SUB LOESCH(K,A) 

318 FOR I=K+1 TO A 

320 INPUT #1,REC I:A1*,A2*,A 

3*,A4*,A5* 

322 PRINT #1,REC I-1SA1*,A2* 
,A3*,A4*,A5* 

324 NEXT I :: PRINT #1,REC 0 
: A-i 

326 SUBEND 
328 ! 

330 ! 

332 SUB NAME(NAME*) 

334 DISPLAY AT(8,3):"NAME ?" 

:: ACCEPT AT(10,3)SIZE<24) : 
NAME* :: DISPLAY AT(23,3):"W 
IRD GESUCHT" 

336 SUBEND 






FLUG¬ 

SIMULATOR 


Aufgabe des Piloten ist es, das aus der Umlaufbahn 
zurückgekehrte Shuttle wieder sicher zu landen. 
Nach Aufbau des Cockpits startet das Spiel nach 
Drücken einer beliebigen Taste. 

Funktionen: 

HÖHE: 

Die Höhe wird zweifach angezeigt, analog und digi¬ 
tal. 

In der analogen Anzeige zeigt ein gelber Balken die 
momentane Höhe an. Der zusätzliche blaue Balken 
zeigt an, in welcher Höhe man sich in 10 Sekunden 
befindet. 


üll'UVVJ.. ,, 

Die Sinkgeschwindigkeit wird unterhalb der Hohe 
angezeigt und sollte beim Aufsetzen auf der Lande¬ 
bahn nicht größer als 1 meter/sec. sein. 


A. . . . 

Rechts oben wird die Fluggeschwindigkeit angezeigt. 
Sie sollte beim Aufsetzen kleiner als 1000 sein. 

Sinkt sie unter 500, so besteht Absturzgefahr 
durch Überziehen. 

DIST.: 

Unterhalb der Geschwindigkeit wird die Distanz 
zum Landebahnanfang angez'eigt. 


DELTA: 

Delta ist die absolute Abweichung 
Es herrscht leichter Seitenwind. 


vom Idealanflug. 


RUDER: 

Rechts unten wird die Stellung des Höhenruders 
angezeigt, in der Mitte unten die Stellung des 
Seitenruders. 


l u . . . nL* 

Die Landeklappen lassen sich erst bei einer Geschwin¬ 
digkeit kleiner als 1500 ausfahren. 

WHEELS: ^ 

Das Fahrwerk läßt sich erst bei einer Geschwindig¬ 
keit kleiner als 2000 ausfahren. 

AUTOP.: 

Der Autopilot landet das Shuttle fast immer sicher. 

STEUERUNG: 

A = 3 Grad nach links 
S = 1 Grad nach links 
D = 1 Grad nach rechts 
F = 3 Grad nach rechts 
G = Ein-/Ausfahren der Landeklappen 
W = Ein-/Ausfahren des Fahrwerks 
ENTER = Ein-/Ausschalten des Autopiloten 
B = Bremsen auf der Landebahn 
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10 ! 

********************** 

11 ! 

* 

* 

12 ! 

* SHUTTLE SIMULATOR 

* 

13 ! 

* 

* 

14 ! 

* - Copyright by 

* 

15 ! 

* Michael' Charisse* 

* 

16 ! 

* v* • . 

* 

17 ! 

* 

* 

19 ! 

* Benoetigte Geraete 

* 

20 ! 

* TI99/4A Konsole 

* 

21 ! 

* Ext. Basic 

* 

22 ! 

* 

* 

26 ! 

* Speicherbelegung 

* 

27 ! 

* 8794 Bytes 

* 

28 ! 

* 

* 

29 ! 

30 ! 

********************** 

230 

! KURZANLEITUNG : 


240 

! LINKS = AS 


250 

! RECHTS = DF 


260 

! HOCH = E 


270 

! RUNTER = X 


280 

! LANDEKLAPPEN = G 


290 

! FAHRWERK = W 


300 

! AUTOPILOT = ENTER 

310 

320 

! REIFENBREMSE = B 

i 


350 

360 

ON ERROR 2600 



370 CALL CLEAR :: CALL DELSP 
RITE(ALL):: CALL CHARSET :: 
RANDOMIZE 
300 CALL SCREEN(5) 

390 CALL MAGNIFY(4) 

400 FOR 1=1 TO 14 :: CALL CO 
LOR(I,16,2) 

410 NEXT I 
420 DIM C(250) 

„ 430 ! COCKPIT-GRAFIK 

440 CALL CHAR(136,"FF8080808 
0008080") 

450 CALL CHAR(137,"808080808 
08080FF") 

460 CALL CHAR(138,"010101010 
10101FF") 

470 CALL CHAR(139,"FF0101010 
1010101 ") 

480 CALL CHAR(140,"FF0000000 
0000000 ") 

490 CALL CHAR(141,"808080808 
0808080") 

500 CALL CHAR(142,"000000000 
00000FF") 

510 CALL CHAR(143,"010101010 
1010101 ") 

520 CALL CHAR(128,"101010101 
0101010 ") 

530 CALL CHAR(129,"FFFFFFFFF 
FFFFFFF") 

540 CALL CHAR(120,"FF81C3818 


L 

I 

S 

T 

I 

N 

G 
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181C381") 

550 CALL CHAR(121,"8181C3818 
181C381") 

560 CALL CHAR(122,"8181C3818 
18181FF") 

570 CALL CHAR(112,"FFFFFFFFF 
FFFFFFF") 

580 CALL CHAR<113,"FF8181818 
18181FF") 

590 ! SPRITES-GRAFIK 
600 W0$="00000000010101037F0 
0000000000000000000000000008 
0FE00000000000000» 

610 Wl$="00000000010101037F0 
8080000000000000000000000008 
0FE20200000000000" 

620 CALL CHAR (104, "7"&<RPT$ ( " 
0 ", 63 )) 

630 CALL CHAR(108,"000000100 
0000000" kRPT* ( " 0 " , 48) ) 

640 CALL CHAR(96,"8080808080 
8080800000000000000000 " &RPT* 
("0",32)) 

650 CALL CHAR(92,"0010103810 
000000"&RPT$("0",48)) 

660 ! COCKPIT-AUFBAU 
670 CALL CHAR(100,W0*) 

680 CALL COLOR(14,6,2) 

690 CALL HCHAR(1,12,136) 

700 CALL VCHAR(2,12,141,17) 
710 CALL HCHAR(19,12,137) 

720 CALL HCHAR(19,13,142,7) 
730 CALL HCHAR(19,20,138) 

740 CALL VCHAR<2,20,143,17) 
750 CALL HCHAR(1,20,139) 

760 CALL HCHAR(1,13,140,7) 
770 CALL COLOR(13,16,2) 

780 CALL HCHAR(2,16,128) 

790 CALL HCHAR(21,13,140,7) 
800 CALL HCHAR(23,13,142,7) 
810 CALL HCHAR(21,12,136) 

820 CALL HCHAR(22,12,141) 

830 CALL HCHAR(23,12,137) 

840 CALL HCHAR(21,20,139) 

850 CALL HCHAR(22,20,143) 

860 CALL HCHAR(23,20,138) 

870 CALL HCHAR(22,13,128,7) 
880 CALL COLOR(12,16,2) 

890 CALL HCHAR(1,2,120) 

900 CALL VCHAR(2,2,121,22) 
910 CALL HCHAR(24,2,122) 

920 DISPLAY AT(1,4)SIZE(3):" 
ALT" 

930 DISPLAY AT(7,3)SIZE(5):" 
VARIO" 

940 DISPLAY AT(14,3)SIZE(5): 
"FLAPS" 

950 DISPLAY AT(20,3)SIZE(6): 

"WHEELS" 

960 CALL COLOR(11,12,5) 
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970 CALL HCHAR<16,6,112) 

980 CALL HCHAR<16,7,113) 

990 CALL HCHAR(22,6,112) 

1000 CALL HCHAR(22,7,113) 
1010 CALL HCHAR(18,26,140,2) 
1020 CALL HCHAR<24,26,140,2) 
1030 CALL HCHAR(19,25,140):: 

CALL HCHAR(19,28,140) 

1040 CALL HCHAR (23,25,140):: 

CALL HCHAR<23,28,140) 

1050 CALL HCHAR(20,24,140,2) 
:: CALL HCHAR<22,24,140,2) 
1060 CALL HCHAR(20,28,140,2) 
CALL HCHAR<22,28,140,2) 
1070 CALL HCHAR<21,23,140,3) 
:: CALL HCHAR(21,28,140,3) 
1080 DISPLAY AT(1,22)SIZE(5) 
!"SPEED" 

1090 DISPLAY AT(7,22)SIZE(4) 


"DIST" 

1100 DISPLAY AT(13,22)SIZE(5 
):"DELTA" 

1110 ! SPRITES POSITIONIEREN 
1120 CALL SPRITE(#1,100,12,1 
44,194) 

1130 CALL SPRITE(#2,104,12,1 

, 8 ) 

1140 CALL SPRITE<#6,104,5,1, 
8 ) 

1150 CALL SPRITE<#3,108,16, 1 
5,124) 

1160 CALL SPRITE(#4,96,7,165 
, 124) 

1170 ! FLUGPARAMETER 

1180 V=3000 

1190 AUF,LAN,FA=0 


1200 WI=0 
1210 FL,WH,AP=0 
1220 CO=0 

1230 DX=INT(RND*30)+170 
1240 DY=RND#60-30 
1250 AL,AL0=INT(RND*5000>+80 
00 

1260 BL=(RND-.5)/30 
1270 GOSUB 1660 
1280 ! HIER HAUPTPROGRAMM 
1290 CALL KEY <0,K,S):: IF S= 
0 THEN 1290 
1300 GOSUB 1510 
1310 IF AP=1 THEN GOSUB 1790 
1320 IF V>3000 OR V<600 THEN 
DISPLAY AT <1, 22) SIZE(5):"pp 
ppp" :: DISPLAY AT(1, 22) SIZE 
(5):"SPEED" 

1330 IF AUF<-40 OR AUF>0 THE 
N DISPLAY AT(7,3)SIZE(5)!"PP 
ppp" :: DISPLAY AT(7,3)SIZE < 
5):"VARI0" :: DISPLAY AT(7,3 
)SIZE (5) .* "ppppp" :: DISPLAY 
AT <7,3)SIZE(5):"VARIO" 


L 

I 

S 

T 

I 

N 

G 
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1340 C(50+DX)=AL 

1350 AUF=(WI+FL-.1)*<5+FL*2* 

SGN(WI))#<V-150)/5000 

1360 IF V<500 THEN AUFKAUF-( 

(550-V)/50) A 4 

1370 V=V-((V/2000) / '2)*(50+WH 
*25+FL*15) 

1380 V=V-((V+1000)/30)*SIN(2 
*WI*PI/180) 

1390 RV=COS<WI*PI/180)*V 
1400 DY=BL+DY-SIN<CO*PI/180) 
*RW4000 

1410 DX=DX-COS(CO*PI/180)*RV 
/3500 

1420 AL=AL+AUF 

1430 IF LAN=1 THEN GOSUB 205 
0 :: AL=MAX(AL,0):: AUF=MAX< 
AUF,0) : : IF AL >0 THEN LAN=0 
ELSE IF V<0 THEN V-0 GOTO 


2140 

1440 IF FA=0 THEN GOSUB 1660 
ELSE GOSUB 1920 
1450 IF FA=0 AND DX<15 AND D 
Y#SGN(DY)<4 THEN CALL VCHAR( 
2,16,129,9):: FA»i :: call c 
OLOR <#3, 7)11 CALL PATTERN <#3 
,92):: GOSUB 2100 
1460 IF AL>.1 THEN 1300 
1470 IF AUF<-1 OR WH=0 OR DX 
<-50 OR DY#SGN(DY)>5 OR V>10 
00 THEN LAN-0 :: GOTO 2140 
1480 CALL SOUND(-50,1110,25) 


:: LAN=1 

1490 GOTO 1300 

1500 ! TASTATUR-MODUL 

1510 CALL KEY(0,K,S):: IF S= 

0 THEN RETURN 

1520 CALL SOUND(-100,900,29, 
905,29,910,29) 

1530 IF K=69 THEN WI=WI+1 :: 
WI*MIN(30,WI) 

1540 IF K=88 THEN WI=WI-1 :: 
WI"MAX(-30,WI) 

1550 IF K=83 THEN CO=CO-l :: 


CO=MAX(-34,CO) 

1560 IF K*=65 THEN C0=C0-3 : 

CO"MAX <-34,CO) 

1570 IF K=68 THEN CO=CO+l : 
C0-MIN(34,C0) 

1580 IF K=70 THEN C0=C0+3 : 


C0-MIN(34,C0) 

1590 IF K=71 AND FL=0 AND V< 
1500 THEN FL-1 li CALL HCHAR 
(16,6,113):: CALL HCHAR<16,7 
,112):: RETURN 

1600 IF K=71 AND FL=1 THEN F 
L=0 :: CALL HCHAR<16,6,112): 
: CALL HCHAR(16,7,113):: RET 
URN 

1610 IF K=87 AND WH=0 AND V< 


•> 


» 
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2000 THEN WH=1 :: CALL HCHAR 
(22,6,113):: CALL HCHAR<22,7 
,112):: CALL char( 100,wi*):: 
RETURN 

1620 IF K=87 AND WH=1 THEN W 
H-0 :: CALL HCHAR(22,6,112): 

: CALL HCHAR(22,7,113):: CAL 
L CHAR(100,W0*) 

1630 IF K=13 AND AP=0 THEN A 
P-l ELSE AP-0 :: DISPLAY AT< 
4,3 )size(3): M " :: ! ein 
-/AUSSCHALTEN DES AUTOPILOTE 
N 

1640 RETURN 

1650 ! ANZEIGE-MODUL 

1660 DISPLAY AT(3,23)SIZE(4) 

:using 

1670 DISPLAY AT(3,3)SIZE(5): 

USING "#####":AL 

1680 DISPLAY AT(9,2)SIZE(6): 

USING ”####.#":AUF 

1690 DISPLAY AT(9,22)SIZE(5) 

:using "###.#":dx 

1700 DISPLAY AT(15,22)SIZE(6 
):USING "##.##":SGN(DY)*DY 
1710 CALL LOCATE(#1,142-WI,1 
93) 

1720 CALL LOCATE(#2,191-AL/8 

0 , 8 ) 

1730 IF AUF<-100 THEN 1750 
1740 CALL LOCATE(#6,191-(AL+ 
AUF#10)/80,8) 

1750 CALL LOCATE(#3,9+DX/200 
*135,117-DY) 

1760 CALL LOCATE(#4,165,124+ 
CO) 

1770 RETURN 

1780 ! MODUL AUTOPILOT 
1790 DISPLAY AT(13,12)SIZE(5 
):"AUTO-" :: DISPLAY AT(15,1 
2)SIZE(5):-PILOT" 

1800 IF AL<200 AND DX<10 AND 
WH=0 THEN K=87 :: GOSUB 152 

0 

1810 IF DX>50 THEN SH=50*DX 
ELSE IF DX>10 THEN SH«(DX-10 
)*40 ELSE IF DX>0 THEN SH-10 
ELSE IF DX>-5 THEN SH«1 ELS 
E SH—1 
1820 DH=SH-AL 
1830 DH=DH/10 

1840 IF AUF<DH THEN WI=WI+1 
1850 IF AUF>DH AND WI>-35 TH 
EN WI-WI-1 

1860 DISPLAY AT(4,3)SIZE(5): 

USING "#####":sh 
1870 IF C0<8*DY THEN CO=CO+l 
:: C0-MIN(C0,34) 

1880 IF CO>8*DY THEN CO=CO-l 
:: CO=MAX(CO,-34) 


L 

I 

S 

T 

I 
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1890 DISPLAY AT(13,12)SIZE(5 
):" " :: DISPLAY AT(15,1 

2)SIZE(5):- 
1900 RETURN 

1910 « MODUL ANZEIGE FUE& LA 
NDEANFLUG 

1920 DISPLAY AT(3,23)SIZE(4) 

:using 

1930 DISPLAY AT(3,3)SIZE(6): 

USING :al 

1940 DISPLAY AT(9,2)SIZE(6): 

USING "####.#"!AUF 

1950 DISPLAY AT(9,22)SIZE(5) 

:using «*«*.#":dx*10 

1960 DISPLAY AT(15,22)SIZE(6 
)IUSING "###.##":SGN(DY)*DY* 
10 

1970 CALL LOCATE(#1,142-WI, 1 
93) 

1980 IF AL >85 THEN CALL LOCA 
TE(#2,191-AL/15,8)ELSE CALL 
LOCATE(#2,191-AL*2,8) 

1990 IF (AL +AUF*10)*2>191 TH 
EN 2000 

2000.CALL LOCATE(#3,76+DX*4. 
5,118-DY*7) 

2010 IF AL<120 THEN CALL LOC 
ATE(#7,123-AL,110-DY*40) 

2020 CALL LOCATE(#4,165,124+ 
CO) 

2030 RETURN 

2040 ! MODUL AUSROLLEN 

2050 CALL KEY(0,K,S):: IF K= 

66 THEN V«V-30 

2060 IF V<400 THEN WI=0 

2070 V=V*.95 

2080 RETURN 

2090 ! MODUL LANDEBAHN 

2100 CALL HCHAR(19,12,129,9) 

2110 CALL SPRITE(#7,100,15,1 

23,110) 

2120 RETURN 

2130 ! FLUGBEWERTUNG 

2140 FOR DEL=1 TO 300 :: NEX 

T DEL 

2150 CALL CLEAR 

2160 CALL DELSPRITE(ALL) 

2170 CALL HCHAR(24,1,142,32) 
2180 CALL SPRITE(#2,96,7,185 
,205) 

2190 CALL SPRITE(#1,108,16,2 

00 , 200 ) 

2200 FOR 1=250 TO 20 STEP -1 
2210 CALL LOCATE < #1,184-C(I) 
/82,251-1) 

2220 NEXT I 

2225 DISPLAY AT(3,1):"DRUECK 
E TASTE FUER WEITER" 

2230 FOR DE=i TO 100 :: CALL 
KEY(0,K,S):: IF 300 THEN 2 
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260 

2240 NEXT DE 

2245 DISPLAY AT<3,1):" 

N 

2250 GOTO 2200 

2260 CALL CLEAR :: CALL SCRE 

EN(12) 

2270 FOR 1=1 TO 14 :: CALL C 
OLOR(Ij 211):: NEXT I 
2280 CALL DELSPRITE(ALL) 

2290 IF LAN=1 THEN 2390 
2300 DISPLAY AT(1,1):"ES TUT 
MIR SEHR LEID, ABER SIE SI 
ND ZERSCHELLT!" 

2310 DISPLAY AT(3,1):"DIE TR 
UEMMER DER ENTERPRISE LIEGEN 
INT<DX*10)/10!“MEILEN VOM 
AUFSETZPUNKT ENTFERNT.“ 
2320 DISPLAY AT(7,1):"SIE SI 
ND IM UMKREIS VON "JINT(RND* 
10) +2 

2330 DISPLAY AT(8,1):"MEILEN 
VERSTREUT." 

2340 DISPLAY AT(11,1):"SIE Z 
ERSCHELLTEN MIT EINER GESCH 
WINDIGKEIT VON "JINT<V):"MEI 
LEN PRO STUNDE." 

2350 IF UIH=0 THEN DISPLAY AT 
(15,1):"DAS FAHRWERK WAR NIC 
HT AUSGEFAHREN" 

2360 DISPLAY AT(22,1):"DRUEC 
KE TASTE FUER WEITER" 

2370 CALL KEY(0,K,S):I IF S= 
0 THEN 2370 
2380 GOTO 2500 
2390 FOR 1=1 TO 5 :: DISPLAY 
AT U,1): " G R A T U L A T 
I 0 N“ 

2400 FOR DE=1 TO 100 :: NEXT 

DE 

2410 DISPLAY AT<1,1):" 

ii 

2420 FOR DE=1 TO 100 :: NEXT 
DE 

2430 NEXT I 

2440 DISPLAY ATU, 1): "SIE SI 
ND SICHER GELANDET." 

2450 DISPLAY AT(3,1):"IHRE M 
ASCHINE STEHT "?ABS(INT<DX*1 
0)/10) 

2460 DISPLAY AT(5,1):"MEILEN 
HINTER DEM ANFANG " 

2470 DISPLAY AT(7,1):"DER ST 
ARTBAHN. " 

2480 DISPLAY AT(20,1):"DRUEC 
KE TASTE FUER WEITER" 

2490 CALL KEY(0,K,S):: IF S= 
0 THEN 2490 
2500 CALL CLEAR 
2510 DISPLAY AT(12,1):"NOCH 


EIN VERSUCH <J/N) ?" 

2520 ACCEPT AT(12,26)VALIDAT 
e( b jn")BEEP:fr* 

2530 IF FR*="N" THEN STOP 
2540 CALL CLEAR 
2550 CALL SCREEN(5) 

2560 FOR 1=1 TO 14 :I CALL C 
OLOR(1,16,2):: NEXT I 

2570 FOR 1=1 TO 250 :: C(I)= 

0 :: NEXT I 

2580 GOTO 660 

2600 DISPLAY AT(22,1):" 

N 

2605 DISPLAY AT(23,1):" F 
LUGFEHLER 
2610 DISPLAY AT(24,1):" DRUE 
CKE TASTE FUER NEUSTART" 

2620 CALL KEY(0,K,S):: IF S= 
0 THEN 2620 

2630 DISPLAY AT<23,1):" 


2640 RUN 
2650 END 


MONSTER-ATTACK 

Ähnlich aufgebaut wie der bekannte Atari-Oldie 
„Space Invaders“, müßt Ihr bei diesem Spiel versu¬ 
chen, Monster abzuschießen, die sich langsam und 
Zeile für Zeile dem unteren Bildschirmrand nähern. 

Im Gegensatz zu Space-Invaders schießen die merk¬ 
würdigen Monsterfratzen jedoch nicht direkt zu¬ 
rück, sondern verfügen über einen Killersatelliten, 
der gezielt Lenkraketen auf Eure Kanone abfeuert. 

Die Waffen sind mit einem elektronischen Femder- 
kennungssystem ausgestattet und machen auch 
jede Richtungsänderung Eurer eigenen Kanone 

Esfet damit nicht ganz einfach, dem perfekten Zer¬ 
störungssystem zu entkommen und nebenbei auch 
noch die vier Monster in jedem Bildschirm abzu¬ 
schießen, zumal diese von Runde zu Runde schnel¬ 
ler werden und schwieriger zu vernichten sind. 

Gespielt wird mit Joystick #1. Als Bewegungsnch- 
tung für die eigene Kanone ist nur der horizontale 
Weg (rechts-links) offen. Dabei darf der Bildschirm 
jedoch nach beiden Seiten verlassen werden und 
der Spieler kann den Lenkwaffen auf diese Weise 
öfters schon einmal entkommen. 

Eigene Raketen werden abgefeuert, indem man die 
Kanone mit dem Joystick unter ein Monster oder 
in dessen Bewegungsrichtung steuert und ihn an¬ 
schließend nach oben drückt. Damit wird eine Ra¬ 
kete gestartet. Zur Explosion kommt sie allerdings 
erst durch eine Gegenbewegung des Joysticks. 

Wurde die Rakete in unmittelbarer Nähe eines Mon¬ 
sters zur Explosion gebracht, bedeutet dies einen 
Feind weniger auf der Spielfläche. 

Gegnerische Lenkwaffen können nicht abgeschos¬ 
sen werden. Auch solltet Ihr beachten, daß sich 
Eure Kanone nur mit langsamer Geschwindigkeit 
steuern läßt, solange eines Eurer Geschosse unter¬ 
wegs ist. v 

Eine leichte Beute Für den Gegner??.' 
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10 

i 

********************** 

11 

i 

* 


* 

12 

i 

* 

MONSTER ATTACK 

* 

13 

i 

* 


* 

14 

i 

* 

Copyright by 

* 

15 

i 

* 

Norbert Frese 

* 

16 

i 

• 

* 


* 

19 

i 

* 

Benoetigte Geraete 

* 

20 

i 

* 

TI99/4A Konsole 

* 

21 

i 

* 

Ext. Basic 

* 

22 

i 

* 

Joystick 1 

* 

23 

i 

* 


* 

26 

i 

* 

Speicherbelegung 

* 

27 

i 

* 

5638 Bytes 

* 

26 

i 

• 

* 


* 

29 

30 

i 

• 

! 

********************** 


220 CALL MAGNIFY < 3) 

230 CALL CLEAR :: CALL SCREE 
N <13)s: CALL C0L0R(1,16,2,2, 
16,2,3,16,2,4,16,2,5,16,2,6, 
16,2,7,16,2,8,16,2,9,13, 13) 
240 CALL HCHAR( 17, 1,96,32) 
250 CALL CHAR(100,"3C48E690C 
0887220207288C090E6483C3C126 
70903114E04044E11030967123C" 
) 

260 CALL CHAR(104,“010101010 
1010101010103050909090F80808 
080808080808080C0A0909090F0" 

) 

270 CALL CHAR(108,“894522111 
111111111113F40808080FF91A24 
488888888888888FC02010101FF“ 

) 

280 CALL CHAR(112,“38043A444 
22E9ECCA09F88969FA0C0801C205 
C224274793305F99149F9050301“ 

) 

290 CALL CHAR(116,"80C0A3949 
89A5A3A18090908080B07030103C 
52919595A5C1890901010D0E0C0” 

■ ) 

300 CALL CHAR (35,“0032C6EED6 
C6C6") 

310 CALL CHAR(36,“0060606060 
667C") 

320 CALL CHAR (37,“00386CC6C6 
FEC6") 

330 CALL CHAR<38,"00FEC0F8C0 
FE") 

340 CALL CHAR(43,“007CC6701C 
C67C " ) 

350 DISPLAY AT<3,1);“44### # 
## ### ## ### ### #### # # # 
44 ##...#..#...###### 
44 #####..##..### # # # 
4 4 4. . .4 #..#.,.# ft" 

.360 DISPLAY AT (7,1) : “ # # # # 
44 4 4 444 4. .4## # #" 



370 DISPLAY AT(10,1). 

%%%%%%.,%%...%%% %. 

% • • • %%%% « 

.%«.%*•%%%% %•ii■%%•.««%••% 

380 DISPLAY AT(14,1):" %. .% 

%..%..%..%%% %. 

390 DISPLAY AT(19,7):“VON NO 
REERT FRESE“: :"<FEUERKNOPF> 

_SPIELSTART“: :“<A>_ 

_ANLEITUNG“ 

400 CALL KEY <1,C,S):: IF C = 1 
THEN 930 

410 IF C< >18 THEN 400 

420 CALL CLEAR 

430 R=i :; sc=0 :: l=7 

440 ON R GOSUB 860,870,880,8 

90,900,910,920 

450 CALL SPRITE(# 1,108,16, 17 
7,50,ft3,112,16,20,200,44,112 
,16,10,10) 

460 CALL SPRITE(#5,112,16, 10 
, 100) 

470 CALL SPRITE(ft7,116,16,30 
, 30) 

480 M0=3 

490 GOSUB 500 :: GOSUB 670 : 

: GOSUB 500 :: gosub 670 :: 
GOSUB 500 :; GOSUB 670 : : GO 
SUB 620 ;: GOSUB 640 :: GOTO 
49.0 

500 CALL JOYST(l,JX,JY):: CA 
LL MOTION<«1,0,JX*3):: IF JY 
=4 THEN GOTO 510 ELSE -RETURN 
510 CALL POSITION (#1, S', B) : : 
CALL SPRITE(ft2,104,16,155,B, 
--23,JX*4> 

520 FÜR X=1 TO 09 :: CALL JO 
YSTd, JX, JY) 

530 CALL MOTION(ftl,0,JX):: I 
F JY”-4 THEN 550 
540 GOSUB 640 :: NEXT X :: C 
ALL DELSPRITE(#2):: RETURN 
550 CALL SOUND(100,-7,0) : : C 
ALL PATTERN(#2,100):: CALL M 
OTION < #7.0,0) 

560 FOR Y=3 TO 5 :: IF M <Y)T 
HEN CALL COINC (#2, ftY, 9, C) • .* 

IF C THEN CALL PATTERN(ftY,10 
0):: CALL SOUND(100,-7,0):: 
CALL SOUND(-50,-5,0,1000,3): 

: GOTO 590 
570 NEXT Y 

580 CALL DELSPRITE(#2):: RET 
URN 

590 sc=sc-d :: M(Y)=M(Y)-i : 

: IF M <Y)THEN CALL SOUND(100 
,~i ; 0):: CALL PATTERN(#Y,112 
):: GOTO 530 

600 Mü=MO-l :: IF MO THEN CA 









LL DELSPRITE<#Y) : : GOTO 53.0 
610 GOSUB 770 :: GOTO 440 
620 FOR Y=3 TO 5 :: IF M(Y)T 
HEN CALL MOTION (#Y,RNDttl,RND 
#MG~MG/2);: CALL POSITION(#Y 
,C,S):: IF C>1 ?7 THEN GOTO 6 
80 

630 NEXT Y :: RETURN 

640 CALL POSITION (#1,S,B,#7, 

S, A) 

650 IF B<A THEN V=-AG ELSE V 
=AG 

660 CALL MOTION(#7,7,V) 

670 CALL COINC (#1 ,#7, 16,0 : 

IF C THEN 680 ELSE RETURN 
680 CALL PATTERN(#1,100):: C 
ALL SOUND(100,-7,0,220,3):: 
CALL SOUND (-100, -5,0, 200.0,0) 

;: CALL SOUND(50,-6,0) 

690 L=L-1 :: IF L>0 THEN CAL 
L PATTERN(#1,108):: CALL DEL 
SPRITE (#2) : I RETURN 


700 CALL DELSPRITE(ALL) 


710 

DISPLAY 

AT(2,1): 

”44 4 + 

4 4 

+ + 

+ 4 + 

44 4 4 


. T . . . . 

4 . 

. +. 

. + ... 

4 , , , , 

r 4 ...... . 

. 4 44 4 

(- 4 

+ +. 


+ + ♦ , , 

4- . * . i 

, <•" 

.... 1 

4 

720 

DISPLAY 

AT(6,1): 

" + + 4 - 4 

4 . 


..,+++ <444 ++++ 


■ , . . 6c ...... 

. .fc_fcfc k. cfc fc fe. . . " 

730 DISPLAY AT(10,1) I M . 

. . . . . &< • . & 8 < Utdic ....... 

. . .b. . . .&. ,ic & &. . ....... 

...fefcfck fteScftcfic 8cMe&" 

740 DISPLAY AT(15,3):"TREFFE 
R: u j SC: :"WOLLEN SIE NOCHEIN 
MAL ????"I :"DRUECKEN SIE 

BITTE: : " <FEUER>_FUER 

NOCHEINMAL": : "<E>_ 

_FUER ENDE" 

750 CALL KEYU,C,S):: IF C=1 
8 THEN CALL CLEAR :: CALL HC 
HAR(17,1,96,32):: GOTO 350 E 
LSE IF COS THEN 750 
760 CALL CLEAR :: END • 

770 DISPLAY AT(2,1) 

$...« $***$ 

.....$ . *" 

780 DISPLAY AT<6,1 ):** 
***. . . .$**** ***$" 

790 CALL DELSPRITE(ALL):: DI 
SPLAY AT(15,5):"GESCHAFFTER 
LEVEL"\R 

800 DISPLAY AT(17,4):“TREFFE 
R:»jSCI"LEBEN"5L 


L 

I 

S 

T 

I 

N 

G 

S 


810 IF R=7 THEN DISPLAY AT(2 
,1):"BRAVO !!! SIE HABEN ALL 
E": :"RUNDEN GESCHAFFT !!!" 

:: R«J :: L»L+4 
820 FOR X=220 TO 440 STEP 10 
:: CALL SOUND(50,X,0):: NEX 
T X 

830 R=R+1 :: DISPLAY AT<20,1 
):"_FEUERKNOPF DRUECKEN.. 

n 

• • 

840 CALL KEY(1,C,S):: IF S=0 
THEN 840 ELSE CALL CLEAR :: 
RETURN 
850 !@p- 

860 M(3),M(4), M < 5) = 1 :: MG=1 

8 :: AG=13 :: RETURN 

870 M(3),M(4),M(5)=1 :: MG=1 

8 :: AG=16 :: RETURN 

880 M f3) ,M(4)=1 :: M(5)=2 :: 

MG“18 :: AG*16 :: RETURN 
890 M(3),M(4),M(5)=2 :: MG=8 
:: AG=i0 :: RETURN 
900 M( 3 ) =3 :: M(4) , M<5 ) =l :: 

MG=8 :: AG=12 :: RETURN 
910 M(3)=6 :: M(4),M(5)=1 :: 

MG*6 :: AG-8 :: RETURN 
920 M(3)=4 :: M(4),M(5)=2 :: 

MG-14 :: AG* 5 .14 :: RETURN 
930 DISPLAY AT(2,1)ERASE ALL 

.«- SPIELANLEITUNG - 

:"MIT DEM JOYSTICK WIRD 
DIE": :"BASIS(UNTEN) NACHL 
INKS UND" 

940 DISPLAY AT(8,1):“NACH RE 
CHTS BEWEGT. DRUECKT": OMAN 
DEN JOYSTICK NACH": :"OBEN, 
SCHIES2T MAN EINE": ^"GRANA 
TE AB. MIT IHR KANN" 

950 DISPLAY AT(16,1):"MAN EI 
N * LACHMONSTER * 2ERST-": : "0 
EREN WENN MAN SIE MIT": :"EI 
NEM DRUCK NACH UNTEN MIT": : 
"DEM JOYSTICK EXPLODIEREN- > 
>" 

960 CALL KEY(1,C,S):: IF CO 
18 THEN 960 

970 DISPLAY AT(2,1)ERASE ALL 
:"LAESST.": :"DIE ANGREIFEND 
E GRANATE": :"LENKT IHNEN NA 
CH UND SIE": :"KOENNEN SIE M 
EIST NUR MIT" 

980 DISPLAY AT(10,1):"TRICKS 
ABSCHUETTELN.": :"SIE BLEIB 
T DIE GAN2E ZEIT,": :"BIS AL 
LE ’LACHMONSTER* BES-": :"EI 
TIGT SIND." 

990 DISPLAY AT(18,1):"MANCHE 
LACHMONSTER SIND SO": :"KRA 
EFTIG, DASZ SIE EININIGE": :* 
"TREFFER DURCHHALTEN. >>" 


» 
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1000 CALL KEY <1,C,S):: IF C< 
>18 THEN 1000 

1010 DISPLAY AT(2,1)ERASE AL 
L:"DIE MONSTER SENKEN SICH“: 

:"LANGSAM HERUNTERJ WENN SI 
E“! :"DEN BODEN BERUEHRT HAB 
EN": :"WIRD DIE BASIS ZERSTO 
ERT. " 

1020 DISPLAY AT(10,1):"MAN K 
ANN GRANATEN AUCH“: :"SCHRAE 
G ABFEUERN, WENN MAN 1 *; : “DEN 
JOYSTICK SCHRAEG NACH": :"0 
BEN DRUECKT!“ 


L 
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1030 DISPLAY AT<18,1):"VORSI 
CHT! WENN EINE GRANATE": : "U 
NTERWEGS IST, KANN MAN NUR": 

:"LANGSAM LENKEN!-VIEL GLUE 
CK > " 

1040 CALL KEY<1,C,S):: IF C< 
>18 THEN 1040 ELSE 420 
1050 !@P+ 


DECKEL 

DRAUF 

Deckel drauf ist ein Würfelspiel für eine Person. 

Im Spielfeld, einem bunten Bildschirmfenster, be¬ 
finden sich in der oberen Hälfte neun numerierte 
Kästchen, die es eins nach dem anderen auszulö¬ 
schen gilt. 

Zum Löschen der Kästchen dienen zwei Würfel. 
Der Spieler kann entweder die Augenzahl eines 
Würfels oder die Summe beider Würfel zum Schlie¬ 
ßen der Nummemkästchen benutzen. 

Kann weder mit einem noch mit beiden Würfeln 
eia. Kästchen geschlossen werden, ist das Spiel be¬ 



endet und der Spieler bekommt die Summe aller 
noch geöffneter Kästchen als Strafpunkte angekrei¬ 
det. ' • 

Die Eingaben des Spielers werden ständig überprüft, 
so daß die Möglichkeit, sich selbst zu betrügen, von 
vornherein ausgeschlossen ist. 

Am Ende eines relativ kurzen Durchganges kann so¬ 
fort «tn neues Spiel begonnen werden, ohne das 
Programm noch einmal neu zu starten. 


10 REM******************** 


11 REM* DECKEL DRAUF * 

12 REM* * 

13 REM* Copyright by + * 

14 REM* * 

15 REM* JAN KUENEN * 

-16 REM* * 

17 REM*Benoetigte Geraete* 

16 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbe1egung * 

24 REM* 5881 Bytes * 


25 REM******************** 

26 REM 

100 CALL CLEAR 
110 CALL SCREEN < 15) 

120 LN$="- 


130 A$="******* DECKEL DRAUF 
*******" 

140 CALL CHAR(97,"0028003844 
7C4444" ) 

150 CALL CHAR(111,"0028007C4 
444447C") 

160 CALL CHAR(117,"002800444 
4444438") 

170 CALL CHAR(126,"FFFFFFFFF 
FFFFFFF") 

180 CALL CHAR(128,"808080808 
080808") 

190 CALL CHAR(129, 0 ") 

200 CALL CHAR(136,"") 

210 CALL CHAR(137,"000000000 
00000FF ") 

220 CALL CHAR(138,“FF“) 

230 CALL CHAR (139,"010101010 
1010101 ") 

240 CALL CHAR (140,"808080808 
080808 ") 

250 CALL CHAR(144,"183C7EFFF 
F7E3C18") 

260 CALL COLOR (2,5, 1 ) 

270 CALL COLOR(13,2,9) 

280 CALL COLOR<14,2,13) 

290 PRINT LN*:A$:LN$: : 

300 PRINT "SPIELREGELN" 

310 PRINT "-’---" 

320 PRINT "ES WIRD MIT ZWEI 

würfeln ge-spielt.": : 

330 PRINT "WaHLEN SIE:": : 
340 PRINT "A.EINEN DER BEIDE 
N WERTE. ...B.DIE SUMME DER 
WERTE.": : 

350 PRINT "PROBIEREN SIE ALL 
E ZAHLEN ..ZU LOSCHEN." 

360 PRINT "WaRE EINE ZAHL NI 

cht mehr ..möglich,dann ist 

DAS SPIEL .ZUENDE UND SIE BE 
KOMMEN SO-“ 

370 PRINT "VIELE STRAFPUNKTE 
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ALS DIE ..SUMME DER RESTLIC 
HEN ZAHLEN.": : 

380 PRINT "<ENTER>=START." 

390 CALL KEY <0, K,S) 

400 IF K< >13 THEN 390 ELSE 2 
330 

410 CALL CLEAR 

420 FOR 1=1 TO LEN(A$) 

430 CALL HCHAR(1,2+1,ASC(SE6 
*<A*,I,1))) 

440 NEXT I 

450 CALL HCHAR<3,3,126,29) 
460 CALL HCHAR(7,3,126,29) 
470 CALL HCHAR(19,3,126,29) 
480 CALL VCHAR<3,3,126,16) 
490 CALL VCHAR(3,31,126,16) 
500 FOR 1=1 TO 3 
510 CALL HCHAR(3+1,4,129,27) 
520 NEXT I 
530 FOR 1=1 TO 11 
540 CALL HCHAR(7+I,4,136,27) 
550 NEXT I 
560 FOR 1=1 TO 8 
570 CALL VCHAR<4,4+1*3,128,3 
) 

580 NEXT I 
590 RETURN 

600 CALL SOUND<250,262,1) 

610 CALL SOUND<250,247,1) 

620 CALL SOUND<75,262,1) 

630 CALL SOUND<425,349,1) 

640 CALL SOUND<250,262,1) 

650 RETURN 
660 FOR 1=1 TO 9 
670 A <I)=1 

680 CALL HCHAR<5,2+3*1,48+1) 
690 F=F + A <I) 

700 NEXT I 
710 RETURN 
720 RANDOMIZE 
730 K=0 
740 D1=0 

750 IF F<7 THEN 800 

760 D1=INT(RND*6)+1 

770 X=D1 

780 K=5 

790 GOSUB 860 

800 D2=INT <RND*6) +1 

810 D3=D1+D2 

820 X=D2 

830 K=19 

840 GOSUB 860 

850 RETURN 

860 CALL HCHAR<9,K+2,137,7) 
870 CALL HCHAR<17,K+2,138,7) 
880 CALL VCHAR<10,K+l,139,7) 
890 CALL VCHAR<10,K+9,140,7) 
900 FOR 1=1 TO 7 
910 CALL HCHAR <9 + 1,K + 2,32,7) 
920 NEXT I 
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930 ON X GOSUB 1700,1720,175 

0,1790,1840,1900 
940 RETURN 

950 CALL SOUND<500,175,1) 

960 CALL SOUND<600,147,1) 

970 CALL SOUND<300,131,1) 

980 RETURN 
990 M=1 

1000 FOR 1=1 TO 9 

1010 IF F>6 THEN 1070 

1020 IF D2< >A <I)THEN 1160 

1030 KC=D2 

1040 M=5 

1050 1=9 

1060 GOTO 1160 

1070 IF Dl< >A <I)THEN 1100 

1080 M=M+1 

1090 KC=D1 

1100 IF D2< >A <I)THEN 1130 
1110 M=M+1 
1120 KC=D2 

1130 IF D3< >A <I)THEN 1160 
1140 M=M+1 
1150 KC=D3 
1160 NEXT I 

1170 ON M GOTO 1510,1190,118 
0,1260,1220 

1180 IF D10D2 THEN 1260 
1190 A$="NUR DIE "&STR$<KC)& 

" ist möglich." 

1200 GOSUB 1990 
1210 GOTO 1500 

1220 A*="SIE HABEN GLuCK MIT 
DER "&STR* <KC) 

1230 GOSUB 600 

1240 GOSUB 1990 

1250 GOTO 1500 - 

1260 A$="WELCHE ZAHL WaHLEN 

SIE?" 

1270 GOSUB 1990 
1280 CALL KEY <0,KL,S) 

1290 IF S=0 THEN 1280 

1300 CALL SOUND<100,440,1) 

1310 CALL HCHAR<22,1,32,32) 

1320 KC=KL-48 

1330 IF KC=D1 THEN 1420 

1340 IF KC=D2 THEN 1420 

1350 IF KC=D3 THEN 1420 

1360 A$="DAS GEHT NICHT!" 

1370 CALL SOUND<300,-2,1) 

1380 GOSUB 1990 

1390 FOR 1=1 TO 300 

1400 NEXT I 

1410 GOTO 1260 

1420 FOR 1=1 TO 9 

1430 L=0 

1440 IF KC=A <I)THEN 1470 
1450 L=1 
1460 GOTO 1480 
1470 1=9 
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1460 NEXT I 

1490 IF L=1 THEN 1360 

15500 A (KC) =0 

1510 RETURN 

1520 CALL HCHAR(22,1,32,32) 

1530 CALL HCHAR(24,1,32,32) - 

1540 FOR J = 1 TO 2 

1550 FOR 1=1 TO 9 

1560 CALL HCHAR(8+I,J*14-8,1 

36,9) 

1570 NEXT I 
1580 NEXT J 
1590 RETURN 
1600 GOSUB 1520 

1610 F=0 

1620 FOR 1=1 TO 9 
1630 IF A(I)=0 THEN 1660 
1640 CALL HCHAR(5,2+1*3,A(I) 
+ 48) 

1650 GOTO 1670 

1660 CALL HCHAR(5,2+1*3,129) 

1670 F=F+A(I) 

1600 NEXT I 
1690 RETURN 

1700 CALL HCHAR(13,K+5,144) 
1710 RETURN 

1720 CALL HCHAR(11,K + 5,144) 

1730 CALL HCHAR(15,K+5,144) 

1740 RETURN 

1750 FOR 1=1 TO 3 

1760 CALL HCHAR(9+I*2,K+1+I* 

2,144) 

1770 NEXT I 

1780 RETURN 

1790 FOR 1=1 TO 2 

1800 CALL HCHAR(7+1*4,K+3,14 

4) 

1810 CALL HCHAR(7+1*4,K+7,14 
4) 

1820 NEXT I 

1830 RETURN 

1840 FOR 1=1 TO 2 

1850 CALL HCHAR(7 + 1*4,K + 3, 14 

4) 

1860 CALL HCHAR(7+1*4,K+7,14 
4) 

1870 NEXT I 

1080 CALL HCHAR(13,K+5,144) 

1890 RETURN 

1900 FOR 1=1 TO 3 

1910 CALL HCHAR(9+1*2,K + 3, 14 

4) 

1920 CALL HCHAR<9 + 1*2,K + 7, 14 
4) 

1930 NEXT I 
1940 RETURN 

1950 A*="KEINE WAHL MoGLICHi 

u 

1960 GOSUB 950 
1970 GOSUB 1990 
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1980 RETURN 

1990 CALL HCHAR(22,1,32,32) 
2000 FOR 1=1 TO LEN(A$) 

2010 CALL HCHAR(22,2+1,ASC(S 
EG*(A*,I,1>)> 

2020 NEXT I 

2030 FOR 1=1 TO 200 

2040 NEXT I 

2050 RETURN 

2060 IF F=0 THEN 2140 

2070 B$="ES IST VORBEI!" 

2080 A$="SIE BEKOMMEN "&STR$ 
<F)k" STRAFPUNKTE." 

2090 IF FOl THEN 2110 
2100 A$="SIE HABEN EINEN STR 
AFPUNKT." 

2110 GOSUB 1990 

2120 GOSUB 2260 

2130 GOTO 2170 

2140 A*="SIE HABEN ES GESCHA 

FFT! " 

2150 GOSUB 600 

2160 GOSUB 1990 

2170 B$=”NOCH EIN SPIEL? <J- 

N> " 

2180 GOSUB 2260 
2190 CALL KEY(0,KJ,S) 

2200 IF S=0 THEN 2190 
2210 IF KJ< >74 THEN 2240 
2220 GOSUB 1520 
2230 RETURN 
2240 CALL CLEAR 
2250 END 

2260 CALL HCHAR(24,1,32,32) 
2270 FOR 1=1 TO LEN(B$) 

2280 CALL HCHAR(24,2+1,ASC(S 
EG*CB*,X,1))) 

2290 NEXT I 

2300 FOR 1=1 TO 200 

2310 NEXT I 

2320 RETURN 

2330 GOSUB 410 

2340 GOSUB 660 

2350 GOSUB 720 

2360 GOSUB 990 

2370 IF M=1 THEN 2420 

2380 GOSUB 1600 

2390 IF F=0 THEN 2400 ELSE 2 

350 

2400 GOSUB 2060 
2410 GOTO 2340 
2420 GOSUB 1950 
2430 GOTO 2400 


Die nächste 
TI-REVUE 
am 26.9. 
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SERVICE 


FREE¬ 
WARE: 
QUELL¬ 
DATEIEN 
FÜR DIE 
GRAM- 
KARTE 

Als Freeware sind die Quelldateien zweier sehr 
nützlichen Programme für den TI-99 mit 128/512k- 
GRAM-Karte herausgekommen. Um sie vorzustellen, 
muß man zuerst etwas über die GRAM-Karten sagen. 
Diese Karte gibt einem die Möglichkeit, ohne weitere 
Hardware Module z.B. selbst zu schreiben oder um¬ 
zuändern. Man kann sie als Masterplatine für fast alle 
bisher für den TI erhältlichen Module betrachten. 
Weiterhin besteht mit der GRAM-Karte die Möglich¬ 
keit, das ROM „umzuändern“, d.h. man kopiert es 
einfach in die GRAM-Karte. Der Computer verwendet 
dann die Kopie anstatt seine eigenen Roms. Dies gibt 
einem die Möglichkeit, das Rom und auf gleiche 
Weise auch die GROMs nach dem eigenen Bedarf 
zu verändern. 


Wie wahrscheinlich schon 
bekannt, werden die 
GROMs in der Zwischen¬ 
sprache GPL program¬ 
miert. Besitzt man also 
einen GPL-Assembler, so 
kann man seine eigenen 
GROM-Module program¬ 
mieren. 

Eines solcher in GPL ge¬ 
schriebener Module ist 
der Converter. 

Seine Quelldatei erhält 
man ebenfalls auf der 
Freeware-Diskette. Die¬ 
ses Modul hat vor allem 
für DFÜ-Betreiber große 
Vorteile. Es wandelt List- 
Files von BASIC-Program- 
men, solche, wie man sie 
durch ein Telefon-Modem 


erhält, in das PROGRAM- 
Format um. Man erhält 
dadurch ein wieder lauf- 
fähiges Programm. Even¬ 
tuell auftretende Fehler 
werden anhand einer 
REM-Zeile in dem neu 
entstandenen BASIC- 
Programm angegeben, 
für den Konvertiervor¬ 
gang hat man drei BASIC- 
Dialekte zur Auswahl. 
TI-BASIC, EX-BASIC 
und M-BASIC. Unter M- 
BASIC versteht man 
Microsoft-BASIC, welche 
geringfügige Unterschiede 
zum EX-BASIC aufweist. 
Dieses Modul erspart dem 
DFÜ-Benutzer somit das 
mühselige Abtippen der 


Programme, die er durch 
seinen Akustik-Koppler 
erhält. Die einzige Arbeit 
besteht danach noch dar¬ 
in, eventuelle Fehler aus¬ 
zubessern. Dies artet je¬ 
doch nicht in Schwerst¬ 
arbeit aus, da diese Feh¬ 
ler klar und deutlich im 
Listing zu erkennen sind. 
Ein weiterer Vorteil des 
Konverters ist, daß man 
BASIC-Programme an¬ 
hand des Bildschirmedi¬ 
tors des Editor Assem¬ 
blers oder des Tl-Writers 
erstellen kann. Durch die¬ 
sen Editor kann man das 
so entstandene Programm 
einfacher editieren und 
ausbessern. Der Nachteil 
dabei ist, daß der Comand- 
Modus entfällt und man 
das Programm, bevor man 
es testen will, zuerst kon¬ 
vertieren muß. 

Die wohl interessanteste 
Möglichkeit, wie man die 
GRAM-Karte verwenden 
kann, ist eindeutig die 
GRAM-Disk. Sie ist, ähn¬ 
lich der RAM-Disk, voll 
als Disklaufwerk anzuspre¬ 
chen und zu verwenden. 
Der Unterschied dabei 
liegt jedoch im Bereich, 
den die GRAM-Disk ver- 


TRAUMHAFT 

SCHNELL 


wendet. Für die Speiche¬ 
rung von Files stehen 
31 k zur Verfügung. Diese 
setzen sich aus dem 
GROM-Bereichen von 
G>6000-G>DFFF zu¬ 
sammen. Die oberste Bank 
von G>E000-G>FFFF 
ist für das EX-BASIC re¬ 
serviert, da dieses, wenn 
es geladen ist bzw. wird, 
diese Bank benötigt. Ab¬ 
züglich der 32k, die der 
Bereich von G>6000— 
G>DFFF umfaßt, ist 
noch die GRAM-Disk- 
Software, die, ohne sie 
mit dem GPL-Assembler 
geändert zu haben, auf 
die GROM-Adresse • 
G>9820 geladen werden 
muß. Die Bezeichnung 
GROM ist insofern nicht 
mehr ganz richtig, da die 
GROMs auf der GRAM- 
Karte ebenfalls aus 
GRAMs bestehen, die als 
GROMs codiert sind. Der 


wohl spektakulärste Vor¬ 
teil der GRAM-Disk be¬ 
steht darin, daß man aus 
BASIC den Speicherplatz 
eines Modules zur Daten¬ 
speicherung verwenden 
kann. Diese Ausnützung 
eines bisher brachliegen¬ 
den Speicherplatzes ist nur 
mit der GRAM-Disk mög¬ 
lich, da diese, wie oben 
schon erwähnt, keine 
GROMs beinhaltet, son¬ 
dern nur beschreibbare 
GRAMs. Wer eine RAM- 
Disk kennt und auch be¬ 
nützt, wird sehr schnell 
auch die GRAM-Disk zu 
schätzen wissen. Diese 
steht, wie die RAM-Disk, 
in keinem Geschwindig¬ 
keitsverhältnis zur norma¬ 
len Diskettenstation. Da¬ 
durch, daß die GRAM- 
Disk ebenfalls nur im Spei¬ 
cher operiert und so kein 
Gerät ansteuem braucht, 
wird ein traumhafter Ge¬ 
schwindigkeitsgewinn er¬ 
reicht. Die GRAM-Disk ist 
bis zu 5 mal schneller als 
das normale Diskettenlauf¬ 
werk. Einer Verwendung 
als weiteres Laufwerk 
steht daher nichts im 
Wege. Die Verwender der 
128k-GRAM-Karte haben 
dabei jedoch eine Ein¬ 
schränkung. Dadurch, daß 
die GRAM-Disk nur einen 
File beinhalten kann und 
die 128k-GRAM-Karte 
nur Banks für zwei Modu¬ 
le zur Verfügung hat, 
kann man, parallel zu ei¬ 
nem weiteren Modul, nur 
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eine GRAM-Disk verwen¬ 
den. Das bedeutet, daß 
man die GRAM-Disk nur 
zur Speicherung eines 
Files verwenden kann. 
Einen Vorteil haben die 
Benützer mehrerer 
GRAM-Karten bzw. einer 
512k-GRAM-Karte. Diese 
haben die Möglichkeit, 
nach entsprechenden Ab¬ 
änderungen der Software, 
mehrere GRAM-Disks in 
die GRAM-Karte zu la¬ 
den und auch zu ver¬ 
wenden. Oliver Huber 
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LISTING 


MAGISCHES 

QUADRAT 

Wenn man „Magisches Quadrat“ hört, denkt man 
sofort an die Zahlenfelder, die in jeder Reihe die 
gleiche Summe ergeben. 

Doch dieses TI-Basic-Spiel hat damit nur wenig ge¬ 
meinsam. Es ist viel schwieriger . . . 

Nach dem Programmstart bauen sich auf dem 
Bildschirm zwei Quadrate auf. Ein kleines mit ei¬ 
nem vorgegebenen Farbmuster und ein großes 
Quadrat. 

Wenn Sie nun eine Taste zwischen 1 — 9 drücken, 
ändern sich nach einem bestimmten Schema die 
farbigen Teile des größeren Quadrates. 

Hier beginnt nun Ihre Aufgabe: 

Schauen Sie sich das Muster des kleinen Quadrates 
genau an und versuchen Sie, es im Spielfeld abzu¬ 
bilden. Dies gelingt aber nur, wenn Sie das Schema 
der Farbänderungen richtig erkannt haben oder 
lange genug vor lauter Verzweiflung in die Tasten 
gehauen haben, bis der Zufall Ihnen zu Hilfe 
kommt. Doch darauf würde ich mich nicht verlas¬ 
sen. Auch im Lotto hoffen jede Woche viele Tipper 
auf den Zufallstreffer und nur wenige werden 
dabei wirklich reich. 



11 REM* DAS VERFLIXTE * 

12 REM* ' FARBQUADRAT " * 

13 REM* Copyright by * 

14 REM* Burkhardt Knedel * 

13 REM* * 

17 REM*Benoetigte Geraete* 

18 REM* TI99/4A Konsole * 

19 REM* * 

23 REM* Speicherbelegung * 

24 REM* 2879 Bytes * 
23 REM******************** 
26 REM 

100 CALL SOUND(1200,110,1,33 
0,1,330,1) 

110 CALL SCREEN(16) 

120 CALL CLEAR 

130 PRINT “ MAGISCHES Q 

UADRAT": : :“SIE MUESSEN DIE 
FARBEN DES": :"KLEINEN MUST 
ERS OBEN RECHTS": : 

140 PRINT "NACHVOLLZIEHEN. 

: :"DIE TASTEN 1-9 AENDERN 
NACH“: :"EINEM BESTIMMTEN SC 
HEMA DIE": :"FARBEN."! : : 
130 PRINT “ERKENNEN SIE ES!! 
!":::: 

160 PRINT "BITTE EINE TASTE 
DRUECKEN." 

170 CALL KEY <0,X,S) 

180 IF S=0 THEN 170 

190 FOR 1=6 TO 12 

200 CALL SOUND(300,1*110,1) 

210 NEXT I 

220 CALL VCHAR(1,1,32,768) 
230 CALL CHAR<39,"FFFFFFFFFF 
FFFFFF") 

240 RANDOMIZE 
230 DIM A(9) 

260 FOR 1=1 TO 9 

270 IF RND>.5 THEN 300 

280 A(I)=1 

290 GOTO 310 

300 A(I)=3 

310 NEXT I 

320 CALL SCREEN(12) 

330 CALL COLOR(2,7,7) 

340 CALL COLOR(12,5,5) 

330 A$="MAGISCHES QUADRAT" 
360 FOR 1=1 TO LEN(A$) 

370 CALL HCHAR(1,7+1,ASC(SEG 
*(A*,I,1))) 

380 NEXT I 

390 A$="WELCHE TASTE?" 

400 FOR 1=1 TO LEN(A$) 

410 CALL HCHAR(24,5 + 1,ASC <SE 
G*(A$,I,1))) 

420 NEXT I 
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430 CALL HCHAR(24,19,61) 

440 A*="VERSUCH NR=“ 

450 FOR 1=1 TO LEN< A$) 

460 CALL HCHAR <21,5 + 1,ASC(SE 
G*(A*,I,1)) ) 

470 NEXT I 

400 CALL HCHAR(4,27,40,3) 

490 CALL HCHAR(5,27,40) 

500 CALL HCHAR<5,29,40) 

510 CALL HCHAR(6,27,40,3) 

520 CALL HCHAR(5,28,120) 

530 CALL HCHAR(3,8,39,17) 

540 CALL VCHAR <4,24,39,15) 
550 CALL HCHAR <19,8,39,17) 
560 CALL VCHAR(4,8,39,15) 

570 GOTO 1200 
500 V*=STR$(V) 

590 FOR 1 = 1 TO LEN < V$) 

600 CALL HCHAR<21,16+1,ASC<S 
EG*(V*,I,1))) 

610 NEXT I 

620 CALL KEY <0,X,S) 

630 IF S=0 THEN 620 
640 IF <X<49) + (X>57)=-1 THEN 
620 

650 CALL HCHAR(24,20,X) 

660 CALL SOUND(-40,440,1) 

670 ON X-48 GOTO 680,750,790 

,860,900,980,1020,1090,1130 

630 FOR 1=1 TO 2 

690 GOSUE 1440 

700 NEXT I 

710 FOR 1=4 TO 5 

720 GOSUB 1440 

730 NEXT I 

740 GOTO 1200 

750 FOR 1=1 TO 3 

760 GOSUB 1440 

770 NEXT I 

700 GOTO 1200 

790 FOR 1=2 TO 3 

000 GOSUB 1440 

010 NEXT I 

020 FOR 1=5 TO 6 

030 GOSUB 1440 

040 NEXT I 

050 GOTO 1200 

660 FOR 1=1 TO 7 STEP 3 

670 GOSUB 1440 

660 NEXT I 

690 GOTO 1200 

900 1=2 

910 GOSUB 1440 
920 FOR 1=4 TO 6 
930 GOSUB 1440 
940 NEXT I 
950 1=8 

960 GOSUB 1440 
970 GOTO 1200 


980 FOR 1=3 TO 9 STEP 3 
990 GOSUB 1440 
1000 NEXT I 
1010 GOTO 1200 
1020 FOR 1=4 TO 5 
1030 GOSUB 1440 
1040 NEXT I 
1050 FOR 1=7 TO 8 
1060 GOSUB 1440 
1070 NEXT I 
1080 GOTO 1200 
1090 FOR 1=7 TO 9 
1100 GOSUB 1440 
1110 NEXT I 
1120 GOTO 1200 
1130 FOR 1=5 TO 6 
1140 GOSUB 1440 
1150 NEXT I 
1160 FOR 1=8 TO 9 
1170 GOSUB 1440 
1180 NEXT I 
1190 GOTO 1200 
1200 1=0 

1210 FOR Z=4 TO 14 STEP 5 
1220 FOR S=9 TO 19 STEP 5 
1230 1=1+1 

1240 CALL SOUND <200,440,10) 

1250 FOR Y=0 TO 4 

1260 CALL HCHAR(Z+Y,S,A(I)*4 

0,5) 

1270 NEXT Y 
1280 NEXT S 
1290 NEXT Z 

1300 CALL HCHAR(24,20,32) 

1310 IF < A <1)=1) + <A<2)=1) + <A 
<3)=1)+<A<4)=1)+(A(5)“3)+<A< 
6)=1)+(A<7)=1)+<A<8)=1)+<A<9 
)-l)— 9 THEN 1350 
1320 V=V+1 

1330 CALL SOUND <500,888,1) 
1340 GOTO 580 

1350 CALL SOUND<1500,-6,10) 
1360 FOR 1=1 TO 10 
1370 CALL SCREEN <2) 

1380 CALL SOUND<300,1*200,0, 
1*200+50,0,1*200+80,0) 

1390 CALL SCREEN<12) 

1400 NEXT I 

1410 CALL HCHAR<1,1,32,768) 
1420 PRINT "HERZLICHEN GLUEC 
KWUNSCH!■! : !"SIE HABEN ES 
MIT"IVi: : :"VERSUCHEN GESCH 

afft.": :::::: 

1430 END 

1440 IF A(I)=1 THEN 1470 
1450 A(I)=1 
1460 RETURN 
1470 A <I)=3 
1480 RETURN 
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TIPS & TRICKS 


BAUSTEIN 

FÜR 


TI/99/4A 

Mit diesem Ausgabemodul ist es möglich, z.B. 
Roboter zu steuern. Es werden lediglich die Konsole 
und ein Sichtgerät (Fernseher oder Monitor) 
benötigt. 


Der oder die lichtempfind¬ 
lichen Widerstände (LDR 
03) werden an bestimm¬ 
ten Punkten am Bild¬ 
schirm befestigt (z.B. mit 
Tesafilm oder Fischertech¬ 
nikbausteinen). 

Diese Punkte werden 
dann vom Basicprogramm 
angesteuert. Je nach Schal¬ 
tung des Relais, bzw. je 
nach Programm, kann mit 
hellen oder dunklen Fel¬ 
dern auf dem Bildschirm 
das Relais zum Schalten 
gebracht werden. 

Bei dem Ablauf eines Pro¬ 
gramms muß darauf ge¬ 
achtet werden, daß der 
Bildschirm nicht im vol- 
len [Sonnenlicht steht, da 
es sonst zu unkontrollier¬ 
ten Schalten des Relais 
kommt. 

Die gesamte Steuerschal¬ 
tung kann mit Fischer¬ 
technikbauelementen 
aufgebaut werden. Es 
wird dazu nur der Elek¬ 
tronikkasten bzw. Grund¬ 
kasten gebraucht. 

Es kann aber auch eine 
Platine erstellt werden, 
die mit den einzelnen Bau¬ 
elementen bestückt wird. 
Die Bauelemente gibt es 
z.B. bei Konrad oder 
Völkner. 

Beim Aussuchen des Re¬ 
lais sollte darauf geachtet 
werden, daß der Kollektor¬ 
strom des Transistors 
nicht zu groß wird (nicht 
über 0.1 A). Falls dies 
doch der Fall sein sollte, 
kann man auf größere 


Transistoren ausweichen, 
z.B. BD 135. 

Das Potentiometer der 
Schaltung dient zum Ab¬ 
gleichen auf die Hellig¬ 
keit des Monitors bzw. 
Fernsehers. 

Man kann die Schaltung 
beliebig auf mehrere Aus- 
gänge erweitern. _ 

RÜCKMELDUNG 

INSTALLIEREN 

Falls man eine Roboter¬ 
steuerung realisieren 
möchte, muß man zusätz¬ 
lich eine Rückmeldung 
installieren. 

Diese Rückmeldung kann 
man sehr gut über den 
Joystickport führen. 

Den dafür benötigten Tra¬ 
pezstecker bezieht man 
auch bei Konrad oder 
Völkner. 

Die im Schaltplan angege¬ 
benen Nummern befinden 
sich auf der Rückseite des 
Steckers. 

Über das Basicprogramm 
wird mit Call Joyst der 
Port abgefragt. 

Rainer Pahlmann 

Stückliste für 1- 
Kanalausgabe 

1 BC 107 (Transistor) 

1 1 N 4007 (Diode) 

1 LDR 03 (Photowider¬ 
stand . 

1 5K Potentiometer 
(regelbarer Widerstand) 

1 2.2K Widerstand 
1 8.2K Widerstand 
1 beliebiges 12V 
(besser 6 V) Relais 


10 ! ********************** 
11 ! * * * 

12 ! * ALLGEM. STEUERPRG. * 

13 ! * * 

14 ! * COPYRIGHT BY * 

13 ! * * 

16 ! * RAINER PAHLMANN * 

17 ! * * 

18 ! ********************** 
100 MA=9 

110 FÜR 1=0 TO 14 :: CALL CO 
L0R<I,16,2):: NEXT I :: CALL 
SCREEN(2) 

120 CALL CLEAR 

130 CALL CHAR<65, "FFFFFFFFFF 

FFFFFF") 

140 FOR 2=1 TO MA 
130 READ A$ 

160 CALL CLEAR 

170 FOR 1=1 TO 4 

180 A=VAL<SEG$<A$,I,1) ) 

190 IF A=0 THEN 210 

200 ON I GOSUB 250,280,310,3 

40 

210 NEXT I 

220 CALL KEY(1,K,8)!S IF KO 
18 THEN 220 ! WENN K*18,DANN 
NAECHSTE PUNKTANSTEUERUNG 
230 NEXT Z 

240 RESTORE :: GOTO 140 
250 CALL HCHAR<22,1,65,3) 

260 CALL HCHAR<32,1,65,3) 

270 RETURN 

280 CALL HCHAR<22,8,65,3) 

290 CALL HCHAR<23,8,65,3) 

300 RETURN 

310 CALL HCHAR<22,14,65,3) 
320 CALL HCHAR<23,14,65,3) 
330 RETURN 

340 CALL HCHAR(22,22,65,3) 
330 CALL HCHAR(23,22,65,3) - 
360 RETURN 
370 ! BEISPIELDATEN 
380 ! DATA 0000,1000,0100,00 
10,0001 

390 DATA 0000,0110,0001,1000 
, 1101 , 1010 , 1001 , 0000,0101 


Rückmeldung über 
Joystickport 

Abfrage: 

CALL JOYST(2,X,Y) 
CALL KEY(2,K,S) 

:Pin 2 


CALL JOYST(l,X,Y) 
CALL KEY(1,K,S) 

:Pin 7 


Pin 3:X=+4 
Pin 4:K=18 
Pin 9:Y=+4 


Pin 3:X=+4 
Pin 4:K=18 
Pin 9:Y=+4 


Z.B.: K=18, wenn Pin 2 
mit Pin 4 verbunden ist. 
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10 ! ********************** 

11 ! * * 

12 ! *SPEZIELLES STEUERPRG* 

13 ! * * 

14'! * COPYRIGHT BY * 

15 ! * * 

16 ! * RAINER PAHLMANN * 

17 ! * * 

10 ! ********************** 
100 FOR 1=0 TO 14 :: CALL CO 
L0R(I,16,2):: NEXT i :: call 

SCREEN < 2) 

110 CALL CLEAR _ _ 

120 CALL CHAR(98,"FFFFFFFFFF 

FFFFFF“ 

130 DISPLAY AT(10,1):"MAGNET 
...AUS":"POLWENDE AUS":“DREH 

UNG AUS"! “ARM.AUS“ 

140 CALL KEY<0,K,S):: IF S=0 
THEN 140 

150 DISPLAY AT(10,1):"MAGNET 
...AUS“:"POLWENDE EIN"!"DREH 

UNG. .EIN“; "ARM..AUS" 

160 CH=98 :; GOSUB 380 :; GO 
SUB 410 

170 CALL KEY<2,K,S>:: IF S=0 
THEN 170 ;; IF KO10 THEN 1 
70 

100 DISPLAY AT(10,1):"MAGNET 
...AUS";"POLWENDE AUS";"DREH 

UNG. .AUS"! "ARM.EIN“ 

190 CH=32 :; GOSUB 380 !: GO 
sub 410 :: ch=98 :; gosub 44 
0 

200 CALL JOYST(l,X,Y):! IF X 
+Y=0 THEN 200 ;; IF X<>4 THE 
N 200 

210 DISPLAY AT(10,1)!"MAGNET 
...EIN“;"POLWENDE EIN";"DREH 
UNG..AUS"!“ARM.....-EIN“ 

220 CH=98 !: GOSUB 350 !: GO 
SUB 380 

230 CALL JOYST(1,X,Y):: IF X 
+Y-0 THEN 230 :: IF Y<>4 THE 
N 230 
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240 DISPLAY AT(10,1):"MAGNET 
...EIN":"POLWENDE AUS"!“DREH 

UNG. .EIN"! "ARM.AUS" 

250 CH=32 :: GOSUB 380 !! GO 
sub 440 :: CH“98 :: gosub 41 
0 

260 CALL KEY( 1 ,K, S):: IF S=0 
THEN 260 :: IF K<>18 THEN 2 
60 

270 DISPLAY AT(10,1):"MAGNET 
.. .EIN"!"POLWENDE AUS"!"DREH 
UNG..AUS":"ARM..... .EIN“ 

280 CH=32 :: GOSUB 410 :: CH 

«98 :; GOSUB 440 

290 CALL JOYST(l,X,Y)!! IF X 

+Y-0 THEN 290 :: IF X<>4 THE 
N 290 

300 DISPLAY AT(10,1):"MAGNET 
...AUS“!“POLWENDE EIN"!"DREH 
UNG. .AUS"! "ARM.-. . . . .EIN" 

310 CH=32 :! GOSUB 350 :: CH 
«98 ;; GOSUB 360 
320 CALL JOYST(l,X,Y):: IF X 
+Y-0 THEN 320 !: IF Y< >4 THE 
■ N 320 

330 DISPLAY AT(10,1)!"MAGNET 
...AUS"!“POLWENDE AUS"!"DREH 

UNG. .AUS": "ARM.AUS" 

340 FOR 1=20 TO 24 :: CALL H 
CHAR(I,1,32,32)!! NEXT I !! 
FOR 1-1 TO 500 ü NEXT I !! 
GOTO 140 

350 CALL HCHAR (22,1 ,'CH, 3) 

360 CALL HCHAR(23,1,CH,3) 

370 RETURN 

380 CALL HCHAR(22,8,CH,3) 

390 CALL HCHAR(23,8,CH,3) 

400 RETURN 

410 CALL HCHAR(22,14,CH,3) 
420 CALL HCHAR(23,14,CH,3) 
430 RETURN 

440 CALL HCHAR(22,22,CH,3) 
450 CALL HCHAR(22,23,CH,3) 
460 RETURN 
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TIPS & TRICKS 


SCHON 

WIEDER 

EIN 

COM¬ 

PILER^ 

Dieser Compiler ist dafür gedacht, Programme (die in 
C geschrieben wurden) in Assembler Code zu wandeln. 

Danach wird der Assembler Code nur noch 
assembliert und man hat ein Maschinencode-Programm. 
Welche Möglichkeiten man in dieser, für den TI-99 
neuen, Sprache hat, möchte ich hier aufzeigen. 


Der C-Compiler erschien 
in der ersten Version 1985 
auf dem Freeware-Markt. 
Dieses Jahr nun folgte 
eine zweite Version, die 
auch, neben der verbes¬ 
serten Compilierung, Lauf¬ 
fähigkeit auf den sog. 
Editor/Assembler-Simula- 
toren(Beaxs und Funl- 
writer) garantiert. 

Auf den Disketten ist ei¬ 
ne sehr ausführliche An¬ 
leitung enthalten, die alle 
Programme uiid Hilfs- 
routinen erklärt und die 
Besonderheiten der C99- 
Version zeigt. 

Natürlich ist es schwierig, 
ohne sonstige Vorbildung 
von C etwas Vernünftiges 
auf die Beine zu stellen, 
deshalb empfiehlt es sich, 
neben der Anleitung auch 
noch C-Literatur durch¬ 
zuarbeiten. 

Weiterhin sollte man sich 
einen strukturierten Pro¬ 
grammierstil zulegen, da 


C eine hochstrukturierte 
Sprache ist und auch so 
behandelt werden möch¬ 
te (ansonsten bedankt sich 
der Compiler mit einigen 
sehr ausführlichen Feh¬ 
lermeldungen ...). 

C wird hauptsächlich, auf 
größeren Rechnern einge¬ 
setzt (wie z.B. Rechner 
mit CP/M, UNIX, u.a. 
als Betriebssystem). 

Die Sprache selbst hat ei¬ 
ne schon relativ lange Ge¬ 
schichte, die bis ins Jahr . 
1972 zurückreicht. 

C99 entstand aus einer 
small-c Version. Natürlich 
kann dieser Compiler 
nicht soviel bieten wie 
Compiler für Großrech¬ 
ner, aber was diese „klei¬ 
ne“ Compiler-Version 
leistet, ist doch schon 
recht beachtlich! 

Für diejenigen, die C 
nicht kennen, sei folgen¬ 
des gesagt: 

C wird in verschiedene 


Funktionen gegliedert, je¬ 
de Funktion erfüllt einen 
abgeschlossenen Pro¬ 
grammteil. Werden diese 
Teile nun in bestimmten 
Reihenfolgen aufgerufen, 
so entsteht ein komple¬ 
xes Programm. 

Bei den Funktionen liegt 
der Vergleich zum Ex- 
tended BASIC nahe, in¬ 
dem der Befehl 
CALL UPRO() und 
SUB UPROO 
den selben Zweck er¬ 
füllen! 

PASCAL wird oft mit C 
verglichen — von der Pro¬ 
grammstruktur mag dies 
ja stimmen, da aber 
PASCAL „eingebaute“ 
Funktionen zur Verfü¬ 
gung stellt und C nicht, 
trennen sich hier die 
Wege. 

ACHTUNG: 

SEMIKOLON! 


Die Unterschiede zu 
BASIC liegen in einem 
Punkt darin, daß die 
Variablen einen bestimm¬ 
ten DATENTYP zugeord¬ 
net werden müssen. Da¬ 
bei gibt es in C folgen¬ 
de Typen: 

int (für Integerzahlen) 
float (für Fließkomma¬ 
zahlen) 

char (für Zeichen und 
Strings) 

Im Gegensatz zu C gibt es 
in C99 kein float, aber 
dieser Nachteil wird 
durch ein Programm, das 
Floating Point Routinen 
ermöglicht, wieder ausge¬ 
glichen. Um nochmals 
auf die Datentypen zu¬ 
rückzukommen: Die 
Variablen müssen also zu¬ 
erst typisiert und dann 
.erst definiert werden! 
Z.B.: int x,y,z; 

char buff(81); 
char *name; 

Vielleicht ist euch aufge¬ 
fallen, daß hinter jedem 
Befehl ein Semikolon(;) 
steht. Dieses sagt dem 
Compiler, daß hier ein 
Befehl abgeschlossen ist — 
aber Vorsicht: Nicht über¬ 
all folgt ein Strichpunkt 
und das ist ärgerlich beim 
Compilieren . . . obwohl 
dies bei kurzen Program¬ 
men relativ schnell ge¬ 
schieht! 


Der Stern vor dem Varia¬ 
blenname bedeutet, daß 
die Variable Zeiger auf 
etwas ist. 

Gehen wir nun dazu über, 
einige Funktionen näher 
kenhenzulemen und so¬ 
mit die Möglichkeiten von 
C99 zu zeigen. 

Die vordefmierten Funk¬ 
tionen erleichtern den 
Zugriff aus C auf: 

— Bildschirm 

— I/O Operationen 

— Grafik 

— Sprache 

— Sound 

Wenn ein C99-Programm 
gestartet wird, ist der 40- 
Zeichen-Modus eingeschal¬ 
tet. Folgende Funktionen 
erleichtern den Zugriff: 

— getchar(); 

wartet auf Tastendruck 
und gibt ASCII Code 
zurück 

— putchar(c); 
schreibt ASCII Code 
auf den Bildschirm 

— gets(buff); 

liest einen String in 
den Buffer 

— puts(string); 

gibt einen String auf 
dem Schirm aus 

— locate(r,c); 

plaziert den Cursor an 
die angegebene Stelle 

— poll(c);- 

wartet auf Tastendruck 
und übergibt Tasten¬ 
wert 

— tscm(f,b); 

ändert die Farbe im 
Textmode auf ^Vor¬ 
dergrund) und b(Hin- 
tergrund). 

Folgende I/O-Operatio¬ 
nen erleichtern auch die 
Übergabe von Daten auf 
andere Peripheriegeräte: 

— unit=fopen(name, 
mode); 

eröffnet eine Datei im 
speziellen Mode (z.B. 
eine Disk-Datei im 
DISPLAY/VARIABLE 
80 Mode) 

— c=fclose(unit); 
schließt eine Datei 

— c=getc(unit); 

liest einen Charakter 
von einer geöffneten 
Datei 

— c=putc(c,unit); 
schreibt einen Charak¬ 
ter auf eine Datei 

— c=fgets(buff,col,unit); 
liest einen String vom 
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TIPS & TRICKS 


File in den Buffer - 
col gibt dabei die An¬ 
zahl der Charakter — 1 
an 

— c=fputs(string, unit); 
schreibt einen String 
auf eine Datei 

— fread(buff,len,unit); 
liest den nächsten 
String (Anzahl der 
Charakter:len) in den 
Buffer 

— c=fwrite(buff,len,unit); 
wie fread, nur umge¬ 
kehrt 

— fseek(unit,recnr); 
nichts anderes als 
Restore in C! 

— fdelete(filename); 
löscht ein File auf der 
Diskette 

— c=feof(unit); 
testet, ob eine Datei 
schon am Ende ange¬ 
langt ist 

— c=ferrc(unit); 

gibt den Fehlercode 
zurück, falls ein Fehler 
auftritt 

— rewind(unit); 

stellt den fseek Zeiger 
auf das erste Byte einer 
Datei ein. 

Dies soll mal als erster 
Überblick genügen, denn 
gerade die C99-Version 2 
bietet noch sehr viel mehr 
an Funktionen, die den 
Rahmen sprengen würden. 
Allein mit diesen Funktio¬ 
nen wäre es denkbar, ein 
(z.B.) Textverarbeitungs¬ 
system zu erstellen — und 
dies, wie man zugeben 
muß, relativ einfach, sehr 
effektiv und schnell. 

Aber überall wo Licht ist, 
gibt es auch Schatten — 
kommen wir nun auch 
hierzu. 

Der C99-Compiler unter¬ 
stützt noch nicht: 

— mehr als eine Dimen¬ 
sion in einem Feld 

— kein float als Standard¬ 
funktion (zuladbar!) 

— bei Funktionsaufrufen 
werden nur Werte vom 
Typ int zurückgegeben 

— die Operatoren && , ?: 

, :: kennt der Compiler 
nicht 

— Zuweisungsoperatoren 
werden nicht erkannt 

— Speicherklassen (extern 
static, auto,. . .) 

— Goto Statement 

und andere, kleinere Ab¬ 
weichungen gegenüber 
Standard C. 


Diese Aufzählung sieht 
jetzt zwar relativ lang aus, 
aber man kommt auch 
gut ohne die nicht vorhan¬ 
denen Operatoren und 
Befehle aus, zumal man 
diese auch noch im Nach¬ 
hinein als Funktion defi¬ 
nieren kann. 

Hier weicht C99 wieder 
vom Standard ab und bie¬ 
tet eine Möglichkeit an, 
Assembler und C zu mi¬ 
schen! 

Dies erfolgt durch die 
C-unübliche Befehlsfolge: 
#asm 

BLWP@VMBW(Beispiel) 

#endasm 

Viele Beispielprogramme 
in C sind auf den Disket¬ 
ten enthalten, die die neue 
Sprache näherbringen 
sollen. 

NUR AM ANFANG 
KOMPLIZIERT 

Dazu zählt auch ein Bench¬ 
mark Test mit 10 Iteratio¬ 
nen. Es liegt ein Vergleich 
nahe zwischen dem im¬ 
mer beliebter werdenden 
FORTH und dem C99. 
Clint Pulley, der Autor 
des Programmes, wagte 
den Vergleich und es er¬ 
gab sich, daß C99 doppelt 
so schnell ist wie FORTH! 
Abschließend kann man 
behaupten, daß dieses C- 
Paket voll und ganz abge¬ 
rundet ist - sowohl in der 
Software als auch von 
dem sehr informativen 
Begleitmaterial (englisch). 
Man kann mit ruhigem 
Gewissen diesen Compiler 
weiterempfehlen, denn so 
einfach wird der Einstieg 
in C (und somit auch in 
Assembler) nicht mehr 
angeboten. 

Natürlich, ich habe es am 
Anfang schon erwähnt, 
wird ein strukturiertes 
Programmieren und evtl. 
Kenntnisse von BASIC 
und C (denn darauf baut 
es fast auf) verlangt-. 

Am Anfang ist alles etwas 
kompliziert, aber die 
Durchsicht kommt 
schnell! 

Clint Pulley hat somit ein 
Programm geschaffen, das 
eine große Bereicherung 
des Softwaremarktes vom 
TI-99 darstellt. Oliver Siffrin 
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SERVICE 


NACH¬ 

TRAG 

ZUM 

M-LA- 

DER 


Um beim M-Lader eine 
bessere Kompatibilität 
zum Disk-Controller zu er¬ 
reichen, stellte es sich als 
zweckmäßig heraus, den 
Segmentaufbau im VDP- 
RAM um ein 'O-Byte' am 
Anfang zu ergänzen. 
Dadurch wird erreicht, 
daß u.a. der Buffer des 
Diskcontrollers nicht 
mehr der mit der niedrig¬ 
sten Adresse, sein muß. 

Demzufolge haben sich 
folgende fünf Zeilen des 
M-Laders verändert: 
Zusätzlich wird die Zeile 
26855 benötigt: 

26855 DISK=VSEG=8192 
Folgende Zeilen wurden 
modifiziert: 

26900 CALL PEEKV 
(C,V$EG, AL,AR,Al, 
A2,E1 ,E2) 

26910 IF DISK* 
(VSEG=170) THEN 
26770 

Di«-Zeilen 26920 und 
26930 entfallen vollstän¬ 
dig. Durch diese Anpas¬ 
sung haben sich beim 
‘COPY‘-Befehl folgende 
Änderungen ergeben: 

CÖ?Y 

fugt Anweisungen ein, die 
außerhalb -des M-Laders 
stehen 

Format: COPY,BS. 
dezimale VDP Segment 
'-lummer, >0] 
dzw.: COP Y,[ Filename 
(DATA-Zeilen in LIST- 
Format)] 

Die Anweisung kann 9- 
fach geschachtelt sein. 

Die momentane Ebene 
der Schachtelung wird 
in Zeile 26600 sowie bei 
Fehlermeldungen als 
FILE-Nummer gezeigt. 
Verwendung zum Einle¬ 
sen aus externen Pro¬ 
grammteilen, z.B. Stan¬ 


dard-Definitionen über 
“EQU“ für etwa 
“STRASG“ u.ä. 

Die externen DATA-Zei¬ 
len können in einem File 
in LIST-Format gespei¬ 
chert sein. Dabei darf die 
Zeilenlänge ca. 65 Zei¬ 
chen nicht überschreiten 
und die letzte Zeile kein 
Komma enthalten, sollte 
also z.B. “30000 REM“ 
lauten. 

Die externen DATA-Zei¬ 
len können auch im VDP 
in Programm-Format als 
BASIC-Segment gespei¬ 
chert sein. Letzteres errei¬ 
chen Sie unter BASIC 
folgendermaßen: 

— Sie benutzen ein Stan¬ 
dardverfahren, um ein 
BASIC-Programm im 
Speicher zu erhalten, 
das in DATA-Zeilen die 
M-Lader-Anweisungen 
enthält 

— Sie geben folgende 
Befehle ein 

CALL PEEK(—31888, 
A,S) 

CALL PEEK (-31952, 
Q,W,E,R) 

ENDE=256*Q+W—8 
END 1 =INT(ENDE/256) 
END2=ENDE-256 
*END1 

CALL LOAD (-31888, 
END1,END2) 

CALL POKEV(ENDE 
+1,0,A,S,Q,W,E,R) 

NEW 

— Damit ist ein BASIC- 
Programm gespeichert 
und der jetzt reduzierte 
VDP-Speicher kann ganz 
normaf das nächste Pro¬ 
gramm aufnehmen, z.B. 
den M-Lader durch 
“OLD CS 1“. 

Jedes so gespeicherte Pro¬ 
gramm belegt ein BASIC- 
Segment (BS), durchnume- 
riert vom neuesten zum 
ältesten. Beachten Sie, 
daß bei Verwendung von 
Disketten-Laufwerken de¬ 
ren I/O-Buffer stets auch 
ein Segment belegt, z.B. 
“BS.2“ im obigen Dia¬ 
gramm. 


| VDP-Speicher 


BS.2: 

disc buffer 


BS.1: 

DATA Zeilen 


BS.0: 

M-Lader mit 



COPY-Befehl 



PIN-BELEGUNG FÜR ZWEI JOYSTICKS 
QUICK-SHOT II, OHNE BEEINFLUSSUNG 


Die 5 Dioden dienen der 
Entkopplung beider Joy¬ 
sticks. Sie unterscheiden 
sich nur im gemeinsamen 
Rückleiter. Die vorhande¬ 
ne Elektronik für die 
“Auto-Fire-Option“ soll¬ 
te man am besten ganz 


ist aber weitgehend gleich 
gebheben. Zur Unterbrin¬ 
gung der Dioden genügt 
es, kurz vor den Steck- 
Kontakten die betreffen¬ 
den Leiterbahnen durch¬ 
zutrennen und die Dioden 
aufzulöten. Polung be- 


5*1N4148 o.A. PIN-NUMMER AM 9pol. 

: SUB.MIN.-D-STECKER 


V 

JOYST. 1 JOYST. 2 

1 INKS •/ 


FIRE / - n a. a 

OBEN 1 ■ n i 

IJNTFN / • n o 

. / 

RECHTS / 


COMMON - 

-0 7 2 

herausnehmen. Da gibt es 
übrigens verschiedene Va¬ 
rianten: Version 1.3 hatte 
z.B. einen Multivibrator 
aus einem NE555, Version 
2.0 von 1985 nur noch 
zwei Transistoren. Der 
übrige Leiterbahnverlauf 

achten! Den überflüssigen 
Schalter für ‘‘Auto-Fire“ 
kann man ja umbelegen, 
daß er in Stellung “ON“ 
den Fire-Knopf über¬ 
brückt. Beim TI-99/4A 
reicht das für Auto-Fire. 

Dipl.-Ing. M. Becker 


ANSCHLUSS EINES 
AKUSTIKKOPPLERS 


Mit einem handelsüblichen zu beheben, muß zum 
V.24 Kabel zum Anschluß Lötkolben gegriffen wer- 
eines Akustikkopplers ist den: An dem Stecker, der 
man normalerweise gut rechnerseitig verbunden 
bedient, solange man z.B. wird, also nicht mit dem 
den S 21 d Koppler be- Koppler, müssen zwei 
nutzt. Will man aber den Brücken gelötet werden. 

Stecker zum TI für Hitrans 3 

Hitrans 300 Koppler 

1 13 Brücken 

Pin 4 u. 

Pin 20 



HITRANS 300C Akustik¬ 
koppler an seinen TI 99 
bzw. an die Schnittstelle 
des TI anschließen, so ent¬ 
stehen mit einem „nor¬ 
malen“ Kabel Probleme, 
denn das Senden von Da¬ 
ten ist damit nicht mög¬ 
lich. Um diesen Mangel 


Die eine muß Pin 4 und 
Pin 5 verbinden und die 
andere Pin 20 mit Pin 6. 
Ist dieses geschehen, steht 
dem problemlosen Daten¬ 
austausch nichts mehr 
im Wege. 


Axel Ludewigs 
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FÜR BASTLER *** FÜR 
BASTLER 

Verkaufe über 40 Seiten TI- 
Schaltplan zum Preis von nur 10 
DM. 10-DM-Schein + 1,30 
DM Rückporto an: Manfred 
Schneider Nunkircher-Str. 42a, 
6648 Wadem-Büsch feld, Tel. 
06874/6705 _ 

Wir bieten Einkaufsrabatte nur 
für unse re Mitglieder bei TI99 
Hard- und Soft wäre an. Das 
sind Preise zum in die Luft ge¬ 
hen. Info 50 Pfg oder Clubheft 
DM 3,- anfordern. - Tl-Club 
Baunatal, Matthias Orf, Birke¬ 
nallee 34, D-3507 Baunatal 1, 
Tel. 05 61/497990. _ 

Verk. Comodore C16, Dataset- 
te, Programme oder tausche 
geg. TI/99 4A. 

S. Mertineit, Tel. 0651/67479. 

Suche Handbuch zur DFÜ. und 
andere Bücher. Biete Progr. 
für E/A und EXB. 

P. Mertineit, Tel. 06588/466. 

Wir suchen Tl-User zwecks 
Programmaustausch.- Klaus 
Kinslechner, Eibesbrunnergas- 
se 1 /10, A-1120 Wien. _ 

Tausche TI-99/4A Konsole + 
Netzteil + Kassettensoftw. ge¬ 
gen min. 2 der folg. Module: 
Statistik, Datenverw.,Termi¬ 
nal Emulator II, Pers. Record 
keep., Musik Maker, Pole Pos. 
Möglichst mit Anleitung! - An¬ 
dreas Scholz, Londoner Ring 6, 
6700 Ludwigshafen, Tel. 0621/ 
666424. __ 

Verkaufe über 300 Superprogr. 
für nur 

DM 150- incl.Cass.kosten. Li¬ 
sten anfordem bei: Manfred 
Schneider, Nunkircher Str. 
42a, 6648 Wadem-Büschfeld/ 
Saar, T el. 06874/6705. _ 

TI-Kass., jeweils DM 10,-: 
TI-Grundkurs, Finanzberater, 
Marketing-Planspiele, CK- 
TI1A. 

TI-Module, jeweils DM 25,-: 
Hustle, Amazeing, Hangman, 
Connect four Kniffel, Othello. 

- Peter Hielscher, Am Wall 22, 
4401 Saerbeck. 

Suche Extendes-Basic mit dt. 
Handbuch, Rec. Kabel. Micha¬ 
el Klingshim, Uhlandstr. 2, 
8933 Untermeitingen 

Verkaufe div. Org.-Module 
(z.B. E/A) und Software (Disk. 
z.B. TI-Artist). Keine Raubko¬ 
pien. Liste gegen RP. Evtl, 
auch Tausch. Martin Voß, 
Timm-Kröge r-Str. 3 , 2000 

Schenefeld 


***KOBOOMMM*** 
Verkaufe Zweit-Ex-Basic Mo¬ 
dul! Original TI! Mit dt. Hand¬ 
buch! V.B. DM 130,-! 

Wo? Info bei: Manfred Lipws- 
ki, In der Wanne 165, 4620 Ca¬ 
strop-Rauxel 4, 

Te l. 02305/72237. _ 

Suche RTTY Femschreiber- 
progr. fürTI99 + Anleitung für 
TE II. Suche Kontakt zu TI- 
Usern Raum Kirchheim-Teck- 
Lenningen. Tel. 07026/5885 - 
Biete mehrere Schaltungen für 
RTTY-Converter! 

512 KByte Epromkarte für Peri 
Box ab 

280 DM!! - 32 KByte für Peri 
Box 175 DM, 64 KByte Gramm 
Modul 288 DM, Modulgehäu 
se 8 DM, Modulgehäuse 10 
Stck 50 DM, Othello 15 DM, 
Statistics German 20 DM, Par¬ 
sec 30 DM, Tl-lnvaders 25 
DM. Info anfordern bei:Rainer 
Moor, Gerstenkam 1 4700 
Hamm 4, Tel. 02381/789030. 

Haben Sie Probleme mit Ihrem 
TI99/4A? 

Wir probieren, Ihnen zu hel¬ 
fen. Rufen Sie uns an beim TI- 
Club Baunatal unter 0561/ 
497990! Jederzeit erreichbar. 

Wer hat Vulkanien? - Erwin 
Kinslechner, Eibesbrunnergas- 
se 1/10, A-1120 Wien. 

Meldet euch bitte ! 

TI-Bücher: Jeweils 10 DM. 

Tips & Tricks, Spielen + Ler¬ 
nen + Arbeiten, Programm für 
den TI99/4A, TI-Kochbuch 
I+II, Spielprogr. selbsterst.I, 
II. 

P.Hielscher, Am Wall 22, 4401 
Saerbeck. 

Kaufe Sprachsynth. Ang. an: 
A. Wyrobek,. Hassellstr.116, 
5650 Solingen. 

***KABOOMMM*** 
Verkaufe: Adventure Modul + 
11 Adventure Cass.! Alles 
Orig. TI! V.B. 140 DM & Wo? 
Info bei M. Lipowski, In der 
Wanne 165,4620 Castrop-Rau¬ 
xel 4, tel. 02305/72237. 

32-KB-Speichererweiterung 
mit Centronic-Schnittstelle 
(ext. erw.) mit Druckerkabel 
für 200 DM zu verkaufen. 

P. Hilscher, Am Wall 22, 4401 
Saebeck. 

Verkaufe Othello, Yathzee, 
Munchman je nur 20 DM. Alle 
3 zus. nur 50 DM incl. Porto & 
Verp. - Mathias Orf, Birkenal¬ 
lee 34, 3507 Baunatal 1, 0561/ 
497990. 


We are looking for TI-Fans all 
overthe world! E. Kinslechner, 
Eibesbrunnergasse 1/10, A- 
1120 Wien. _ - „ 

TI99/4A + Sprachsyntesizer + 
Ext. Basic + Spiele + Bücher 
VB 350 DM. 

Roland Albus, Euler-Chelpin- 
Str. 34, 

8900 August, Tel. 0821/793265 

Programmiere Ihre Eproms:: 
z.B. für Modulplatine, Q-Save- 
Modul. Suche günstig: Sprach¬ 
synthesizer, Modulgehäuse, 
defekte Hardware (z.B.Konso¬ 
le bis 30 DM Ang. + Info: Peter 
Rieger, Talstr. 64, 6750 Kaiser¬ 
lautern, Tel. 0631/73669 

Tausche Tl-Invader + TOMB- 
STONE CITY geg. Schachmei¬ 
ster o.Schachmodul für T199/ 
4A. Thomas Kammei, Kurt- 
Schumacher-Str. 29, 6700 Lud¬ 
wigshafen, 0621/655367 ab 20 
h._ 

Verkaufe TI-Basic/XBASIC 
dt. 35 DM; 

Assembler-Kurs-ASEM4, incl. 

Disk. 72 DM; 

XBASIC-Utilities (Befehl- 
serw.) 75 DM. 

Werner Zacher - Tel. 089/ 
1572559 _ 

Suche: Gut erhaltene TI-Kon- 
sole (voll funktionsf.) Preis: 
VHB. 

Tel. 06721/41804 Di - Do 18 - 20 
Uhr 


Verk. Module! z.B. Minimen 
-I- Spez. I 

125 DM, Amazing 20 DM; At- 
tack 15 DM usw. Helmut Rei¬ 
ter, Peter-Böhler-Str. 12, 

6000 Frankfurt/M 50, Tel. 069/ 
521601 


Wer tauscht mit uns Progr. in 
TI + XBas. 

ca. 140 Progr. (Spiele + Anw.) 
Liste an: Holger Bemeth, Bay- 
reuther Str. 24, 

8581 Heinersreuth, Tel. 0921/ 
43462 _ 

32K-RAM für 130 DM. Wird 
seitlich angesteckt! Gr. Vorrat! 
Per Nachn. bei: 

C. Mohr, Friesenweg 38, T. 
02 845/21507 _ 

Verk. TI-99/4A, Spiele, Li- 
stings und Module zu Miniprei¬ 
sen. Info gratis von: Markus 
Theimer, Schwedenstr. 2, 6203 
Hochheim 

TI99/4A mit Erw. Box RS232, 
32K, 2 Lw., alle Module nur 
kompl. Tel. 0551/22617 Ver¬ 
kauf - Verkauf 


Verkaufe TI-99/4A + X-Basic 
+ Datasette + Rec. Kabel + 
TI-Grafiktablett + Popeye + 
MxAxSxH + DI4 DVG + De- 
fender + Burgertime u. a. Mo¬ 
dule. Auch einzeln. 

Preis auf Anf. billig: Tel. 0711/ 
766586 _ 

Verk. Orig. Rec. Keeping Mo¬ 
dul (60 DM). Rec. Kabel 2fach 
(20 DM). Alle Artikel sind neu 
und in Orig.Verp. Außerdem 
suche ich Leute, die mit mir 
XB-Progr. tauschen. Schreibt 
an: Detlef H. Barth, Herku- 
lesstr. 43, 5000 Köln 30 

Verkaufe P-Code-Karte mit 
UCSD-Pascal-System incl. 
Austauschprogr. f. bei. UCSD- 
Computer; Laufwerk extern 
TI; Modul Statistik; Invaders,.. 
Car-Wars, Video-Games II; C- 
Kab. Leischner, Oberkirch/ 
Baden, T el. 07802/1464 

Suche EX-BASIC mit deut¬ 
schem Handbuch + Program¬ 
me. EKB bis 80 DM. Kienle, 
Maienst r. 6, 8901 Gablingen 

Tausche: Orig.TI-Modul At- 
tack + 30 Spiele in TI-Basic 
gegen: Miner 2049, Indoor Soc¬ 
cer oder Poke Position. Rolf 
Crisovan Krebsriedgasse 16, 
CH-6460 Altdorf 


Hilfe! Hilfe! Hilfe! 

Suche dringend Hardcopy für 
den EPSON FX-80. Habe 
XBasic + 32K + Centronics. 
Zahle fast jeden Preis!!! Bitte 
meldet Euch unter Tel. 04731/ 
1237 _ • 

Verk. TI99/4A m. Cass. Rec. + 
Kabel, Ext. Basic + 128K RAM 
Speicheren^. Beides erst 7 Wo 
alt. Joyst., Lektüre + Handb. 
Parsec, Soccer, Tomb. City u. 
ca. 40 Progr. Preis DM 1300,- 
VB, evtl. einz. 

Tel. 05331/43459, A. Bieder¬ 
mann 

Suche TI99/4A Schaltpläne. 
Pinbelegungen von Modulport 
u. i/o. Bus. Adressbele 
gungen, Systemorganisation. 
Schaltpläne von Peripheriege¬ 
räten sind auch willkommen. 
Preis VS Tel. 02353/5834 
ab 17.oo Uhr 


TI99/4A Konsole mit Zubehör 
Ext.Basic, MiniMem, 3fach 
Exp. Peri-Box, 32K-RAM, 2 
eingeb. Disks m. Contr. (DS/ 
SD) MBI TI auf Centronics 
(durchgef. Bus), div. Bücher zu 
verk. Ges. VB 850 DM. 

Tel. 08131/93046 nach 18.oo 
Uhr 
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Verk.: TI99/4A, 2 Rec. Kabel, 
Rec., ca. 40 Spiele + Progr. 
Sehr viele Listings, Joystick, 
Bücher: TI Progr. (Spiele, Gra¬ 
fik, usw.). Tips + Tricks, Spie¬ 
len/ Lemen/Arbeiten, Handb. 
Writing Work book, TIBasic/ 
Ex.Basic f. Anfänger. 

Tel. 05257/2776 (Joachim Hu¬ 
bertus anfr.) 

Verkaufe TI99/4A mit den Mo¬ 
dulen Ext.-Bas., Datenw. + 
Anal., Stat., Schach, Parsec, 
Munch Man, TI-Inv., Chish. 
Trail, Joystick m. Adapter, 25 
Zeitschr. 3 Bücher, 350 Progr., 
Cass. Rec. m. Kabel zus. 400 
DM.T.02821/48993 

Verk.: Disk-Contr. 249 DM; 
Disk-Man. 50 DM; Joyst. 30 
DM; XB 175 DM, Attack, In- 
vaders, Chis. Trail je 25 DM; 
Soccer, Parsec je 30 DM; Con. 
Four 20 DM; Beg. Gram. 15 
DM; Finanzber. 15 DM; Basic- 
programm-Rout. 25 DM. Te.- 
0911/498713, 18h 

Verkaufe TI-99/4A + XBasic 
+ Miniass. + Assemblerbuch 
+ Rec. Kabel + Monitor, alles 
für 490 DM. Tel. 02104/46184 

Tausche TI-Revue Jahrg. 1985 
(6 Hefte) gegen Sotware. Ang. 
bitte an Peter Voigt 
Tel. 02162/56520 ab. 19.oo Uhr 

TI99/4A Konsole m. eingeb. 
32K-CMOS Erw. zu verk. für 
250 DM. Rechner ist z.B. in 
Ass. bis zu 2 x so schnell, dß 
diese Erw. wie die CPU auch 
einen echten 16Bit Datenbus 
besitzt. Tel. 06257/83247 

Suche gegen Bezahlung: Bedie¬ 
nungsanleitung f. TI (auch Fo¬ 
tokopie) + Progr. Bildschir¬ 
mausdruck (Hardcopy) f. 
Drucker Kaitec 100 Ex. Suche 
außerdem: Peribox m. 2 
Disclw. + Control + RS232 
Schnitt stellenkarte. Tel. 
07026/5885 

** Hallo Assembler Freaks 
** 

Ich bin neu auf diesem Gebiet 
und möchte deshalb Ass.Spiele 
tauchen. Wer ist daran auch in¬ 
teressiert? Bitte melden bei: 
Michael Best, Lessingstr. 34, 
6473 Gedern 1, Tel. 06045/1279 

TT99/4A: Floppy (TI) aus Box 
mit Unterlagen 200 DM, Ma¬ 
trixdrucker Seikosho GP 100 A 
240 DM. Suche gegen Bezah¬ 
lung Bücher von TI-Logo II.l 
TI-Forth. Multiplan, Artist 
(auch Kopien). Suche neuw. 
Drucker Epson FX-RX 80 oder 
Star. Tel. 06182/26186 


Suche für P-Pox: 

Modulgehäuse oder Defekte 
Steckmodule. 

R. Breyer, Alte Schulstr. 14, 
4242 Rees 1, Tel. 02851/2711 

Wegen Systemwechsel: Ver¬ 
kaufe TI-Konsole 150 DM; Pe- 
ri-Box 200 DM; Laufw. + 
Contr. 470 DM, 32K RAM 200 
DM; RS232 = 200 DM; Speech 

S. 80 DM; XBasic 140 DM; 
Parsec + Alp. 50 DM; div. Bü¬ 
cher 2US. 80 DM, Cass.-Kabel 
10 DM; Joysticks 20 DM. Top- 
Zustand. Tel. 040/6560989 

Suche: 2 Disk-Laufw. Speech- 
Synthesizer E/A-Modul, P-Co- 
de-Karte, TI-Multiplan sowie 
Erweiterungen u.a. für TI99/ 
4A. Ang. an: H. Hölzer, Mo- 
zartstr. 5, 

7514 Eggenstein-Leo. 

*** Achtung** * 

Drucke Ihre Listing: 1 = 1 DM; 
3 = 2 DM; 6 = 4 DM. Jedes 
weitere + 1 DM + 80 PF Porto. 
Knut Meissner, Marsbergerstr. 
25, 3549 Diemelstadt 3 


Munchman (15) Statistik (15) 
DV (15) FIN (10) Wumpus (10) 
Beg. Gr. (10) Video G (15) Par¬ 
sec (15) L + Est (15) Investre 
(10). Bastert, Tulpenweg 61, 
469 Herne 2 


Verkaufe: TI (neu) m. Hand¬ 
buch — Suche Ext.Basic II/ 
Plus!!! Geb. an: E.D.Donig, 
Frankfurter Str. 15 , 3590 Bad 
Wildungen, Tel. 05621/4298 

Hallo Tl-User im Großraum 
Stuttgart + Pforzheim!! ** 
Tl-Club Errorfree ** 

Sucht Mitglieder!! Info Tel. 
07042/24415 oder 77629 


*** Achtung*** 

Schreibe Ihr individuelles Da¬ 
tenverwaltungsprogramm. Das 
kostet Sie nur 10 DM, eine Be¬ 
schreibung Ihres Wunsches und 
Ihre Telefon-Nummer. Knut 
Meissner, Marsbergerstr. 25, 
3549 Diemelstadt 3 


32k-CMOS-Erweiterung (su¬ 
perschnell, dß mit echtem 16 
Bit Datenbus) zum Einbau in 
die Konsole. Preis 120 DM. 
Kompl. Lötarbeit erforderl. 
Verk. auch Buch 99 Spez. 1, 
Preis 20 DM VB. T. 06257/ 
83247 

Verkaufe: Number Magic, De¬ 
molition Devision, Dragon. 
Mix, Alien Addition, Me te or 
Multiplikation, Alligator Mix 
je 10 DM; dt. Handbuch zum 
Extended Basic 25 DM. Tel. 
0911/498713 ab I 8.00 Uhr 


Verkaufe: 32 K Intern Origal 
TI 200 DM. 

Module: Ext. Basic (TI) 100 
DM; Mini Memory 100 DM, 
Tl-Writer 200 DM; Schach¬ 
meister 40 DM; Buchungsjour¬ 
nal (o.Anl.) 60 DM; Pers. Rec. 
Keeping + Pers. Rep. Gen. 80 
DM; Disk Manager 2 DM 40, 
Par 

sec 30 DM, Invarders 30 DM. 
Bücher: 99 Spez. 1 - 20 DM; TI 
Basic/Exbasic für A/F 15 DM; 
Prog. f. den TI (Heigerm.) 15 
DM.- Erich Niedergriese, Ro- 
enselstr.9 5800 Hagen 7, Tel. 
02331/402220. PS. Gibts in Ha¬ 
gen keine Ti/User? Mel- 
d.Euch. 

Verkaufe: TI-Forth. Multi¬ 
plan, Disk-Fixer von Nauaro- 
ne. Alles in einem Mudul zu 
350 DM. Tel. 02571/2411 

Verkaufe batteriegepufferte 
32K Speichererweiterung zum 
Anschluß seitlich an die Konso¬ 
le, mit durchgeführtem Bus 
und LED zur Betriebsanzeige, 
für 180 DM. Bei Bedarf dazu 
passendes Assemblersoftware 
(Ramdisk,...). 1 orig. Exten¬ 
ded Basic Modul für 190 DM 
(alles neuwertig). 

Gregor Lohmann, Bleiberg- 
erstr. 54, 5100 Aachen, Tel. 
0241/86447 


P-Box + Disk. + Contr. + 
Man. + 32K zus. 1250 DM; 
TI99/4A + Ex-Basic 300 DM; 
Edit Ass. + Handb. in dt . + 
engl. + Kurs II 320 DM; 
Sprachsys. + Modul 130 DM; 
Eprom + Progr. 130 DM; Ex- 
Basic Handb. in dt. + engl. 40 
DM; Spez. I 35 DM; Parsec 45 
DM; Mu-Man + Tome 20 DM. 
Tel.0203/478723 


Zu Verkaufen: 1 TI-99/4A m. 
Org.Box + Laufw. + 32K + 
Contr. 1300 DM; Multipl. 240 
DM; TT-Writer 260 DM; Da- 
tenverw. + Analy. + Pers.- 
Rep.-Gen. je 65 DM; Haus¬ 
halt-Mod. 90 DM; FiHn-Mod. 
60 DM; od. kompl. 1800 DM, 
Ext. 32K 180 DM. 

Tel. 069/414539, evtl. m. e. 
Progr. 

32KB-Speichererw. f. TI99/4A 
f. Peribox sowie Ext-Basic-Mo- 
dul m.Buch (dt) 270 DM VB. 
Erwin Wächter, Gerstbuschstr. 
9, 6670 St. Ingbert, Tel. 06894/ 
6890 

Verk. TI99/4A + Ext.Basic + 
Rec. 4 - Kabel + Joyst. + 4 
Fachbücher + Basickurs + 

100 Progr. auf Kass. f. 450 DM. 
B. Dohr, Tel. 02234/81364 


Verkaufe: Videogames 1 4 - At¬ 
tack (55 DM), Diskmanager 2 
(40 DM), Tl-Joysticks (40 
DM).- Kaufe Schachmodul (45 
DM) oder tausche gegen Vi¬ 
deogames 1 4- Attack. Verkauf 
per NN. Kai Breuer, Zur Burg 
30, 6393 Wehrheim 1 

Verk. TI-99/4A (80 DM), Ex- 
Basic (110 DM), RS232 4- V24- 
Kabel (160), Speech-Syntehsi- 
zer (100 DM VB), Rec.-Kabel 
(10 DM), Joyst.-Adapt. (10 
DM), 2 Bücher (35 DM), 
Munchman (29 DM), alles oh¬ 
ne Defekt 

Tel. 06074/29556, bitte Daniel 
verlangen 

Zu Verk.: 2 x P-Box, 2x RS232, 
3x 32K, 4x Joyst., 4x Rec.-Ka¬ 
bel, lx Sprachsynth 1400 
Progr./180 Disks, Ex-B, E/A, 
Mini-Mem, Modem, Tl-Wri- 
ter, viele Module, viele Bü¬ 
cher, viele Extras. Tel. 06204/ 
1471 (Piepton abwarten, Na¬ 
me, Nr. und Ang. geben. 

TI99/4A Verkaufe: 

Konsole/Box mit Disk. + 
Contr./interne 32K/ext. Druk- 
kerinterf. + Druckerkabel, Ex- 
Basic org. sowie div. Module 4 
Bücher 

Tel. 069/7438368, Schmidt, v. 9 
- 16.oo, ab I 8.00 Uhr Tel. 
06035/3214 


Verkaufe P-Box mit Disk- 
contr., 1 Laufw. 5 1/4” für 900 
DM, Atronic RS232 Karte mit 
32KB 7 Mon. alt für 370 DM, 
Tl-Writermodul für 200 DM. 
Holger Wesemann,Kkreuz- 

krug 62, 

3079 Raddestorf 1 


*** Finito Aus Schluß Vor¬ 
bei *** 

An alle meine Tauschpartner: 
Ich verkau fe meinen TI, bis ich 
ihn verkauft habe wie folgt: 
TI99/4A + XB 2 + 32K + 
3Mod. + Joy + 250 Pgm + Lit. 
+ Rec. (nicht Orig.) NP 1250 
DM - VB ca. 800 DM. 

Michael Bolte, Am Sportplatz, 
3065 Nienstädt, Tel. 05721/ 
2627 


Achtung! Biete folgende: 1 Mi- 
niMemory 110 DMd; 1 Music- 
maker 40 DM; 1 Exb-Lem auf 
C. 15 DM; alles zus. 145 DM. 
Thomas Pister-Talstr. 49, 8770 
Lohr 

Tel. 09352/3804 (ab 20.00 Uhr) 

Suche Spiel u. andere Module 
sowie Zubehör für TI. Ang. an: 
S. Engelbert, Heinr.-Schütz- 
Weg 5. 7151 Allmenbach oder 
anr.: 07191/58233 abends 



Tl-User möchte Enterpr. + B. 
Rogers nicht nur spielen, son¬ 
dern sehen! Wer kann mir in 
V2000 Folgen von Satl aufneh¬ 
men? Zahle Cass + Bonus, nur . 
schrift. Anfr./Ang. an: P. 
Schmitz, Am Zehnthof 4, 5480 
Remagen 4_ 

TI99/4A Box, RS232, 32K, 
Lw., XB, Tl-Writer, Statistik, 
Pers. Kep., Pers. Gen., Disk- 
Manager, viel Softw., evtl, 
auch Drucker VP: Gegen 
Höchstgebot! 

Tägl. ab I 8.00 Uhr, Tel. 09123/ 
12249_ 

TI99/4A Ext-B 32K, Tl-Spiele 
1+2, Bücher Cass./Module/ 
Schaltpläne/Rec./Zubehör. 

VB 510,-, Tel. 0231/391541 ab 
20.oo Uhr 

TI99/4A + Rec. + Module: 
Schach, Othello 
Datenverw. + Lit. 499 DM. 

Tel. 02247/2611, R. Lehmann 

Verkaufe Tl-System: 

Konsole 110 DM; Ex.Basic 140 
DM; Minimem 1-30 DM; E/A 
m.dt.Handb. 170 DM; Box, 
Contr., Disk nur kompl. 650 
DM; 32K-Karte 200 DM; 
RS232/Centr.-K 200 DM. 

C. Hasselkuss, Zaunkönigweg 
5, 4630 Bochum,- Tel. 0234/ 
311411 _ 

Suche Ass.Progr. f. E/A + P- 
Box! Auch Programmtausch! 
Suche weiterhin die Anleitun¬ 
gen von S.X.B., Protector II + 
FIG-FORTH (Weiand)! Verk. 
ATARI-Modul ”Moon Patrol” 
f. .50 DM.! M. Rohrmoser, 
Nietzscheweg 16, 4300 Essen, 
0201/530687 • • 

❖ ❖❖Verkaufe*** TI 99/4A 
+ 32K Erw. + Centr. + Kabel 
+ Ex-Basic + Buchungsj. + 
Meteor Multipl. + Yathzee + 
130 Spiele +TI-Finanzberater 
+ Voodoo Castle + 15 Anwen- 
derprogr. für VB < 800,-- DM. 
T el. 0203/332920 _ 

Systemerweiterung mit Progr. 
Speedtape 2000 für M.M. + 32 
K, 6mal schneller als orig, auf 
die Kass. Ass.soft, bis 32K, oh¬ 
ne Disc. + Basicroutinen. Bes¬ 
ser komparabel, höhere Daten- 
sicherh. als orig. öS 350,- an: 
Rudolf Mauk, Justgasse 29/67/ 
1, A-1210 Wien 

Achtung!!! Verk. TI99/4A + 
Ext.Basic + Rec. Kabel + Org. 
Joysticks + 3 Spielmodule + 
Lit. für nur 450 DM. 

Stefan Lehnert, Georg-Böhm- 
Str. 16, 

8700 Würzburg 


BÖRSE 


Verk. TI99/4A + Ext.Basic + 
Rec. + Kabel + 21 Spiele + 
Handb. + Computerzeitschr. f. 
400 DM, Tel. 0441/601730 

Ex-Box + Disk-Cont. + 
Laufw. int. + Laufw. Ext. + 
Disk-Manager 2 + RS232 Kar¬ 
te + Kabel RS232 -Centr. + 
Othello + Demolition Div. + 
Alien Add. + Yatzee für 2000 
DM. Ext.Basic 120 DM, 32K- 
RAM Karte Phpl260 DM 
250.-. Samstag 17-18 h 
Tel. 05603/2374 _ 

Verkaufe meine voll funk- 
tionsf. Zweitkonsole + Netzteil 
für 60 DM. Verkaufe auch 
Progr. nur 10 DM. Bitte mel¬ 
den bei: A. Scholz, Londoner 
Ring 6 , 6700 Ludwigshaven, 
Tel. 0621/666424 

❖ ❖Einmalig** Verkaufe 
T199 Adventure mit Text + 
Grafik für 15 DM incl. Progr- 
.Disk zuzügl. Porto. Benötigt 
X-Basic, 32K Erw., DSK, Lw. 
Tel. 02621/50713 

❖ TI99/4A ❖ 028 ❖ Texas 
Spiele-Module * zu verk. bis 
zu 60% preiswerter. C128-Mal- 
progr. im 128 Modus in Maschi- 
nenspr. Einbinden der Bilder in 
Basic 7.0 und 2.0 mögl. Tel. 
0208/23299 ab I 8.00 Uhr 

Verk. Centronics-Interface 
ext. 100 DM. 

Suche Tauschpartner f. TI- 
Softw. in X-Basic, Ass. o. 
Forth. Tel. 04331/31074, ab 
16.00 Uhr _ 

!! 600,- DM = TI99/4A + Ex- 
basic + RS 232 + 2 Joysticks + 
Buchungsmodul + Personael- 
modul + Datenrec. + Spiele, 
Lit. 

Tel. 05123/678 

Verkaufe aus meiner Pro¬ 
grammsammlung To Progr. Ei¬ 
ne C-60 Kass. mit ca. 27 Progr. 
f. nur 10 DM. Bei Interesse 
melden bei: 

A. Scholz, Londoner Ring 6 , 
6700 Lud 

wigshafen, Tel. 0621/666424 

TI-Bücher billig! 99 Spez. 1 
DM 20; 99 Spez. 2 DM 20,-; 
Basic/Ext.Bas. DM 20,-; Spie¬ 
len, Lernen, Arbeiten DM 15,- 
; Tips & Tricks 20 DM; TI99/ 
4A Intern (neu) 

DM 18,-. Tel. 040/6560989 

Verkaufe meinen Reserve 
TI99/4A m. RS232 und Brother 
EP 22, incl. allen erforderli¬ 
chen Kabeln. Preisidee: 800,- 
oder GROM-Karte! R. Breyer, 
Alte Schulstr.14, 

4242 Rees 1, Tel. 02851/2711 


Verkaufe extern: 32K + 

RS232; intern: 32K + Contr. + 
Laufw. Tausche Ass.Progr. 
Verkaufe Module: Soccer, Par¬ 
sec, Othello Fitness Training, 
Text + Datei, DV + Analyse, 
Buch.-Journal, Early Reading. 
VHS. A. Goering, Tel. 07243/ 
78582 _ 

Verkaufe Superspiele in TI-Ba- 
sic. Olympiß 1984, Dragon- 
Castle, P.-Progr. I + II, Little 
Computer People, Miner, 
Schatzsuche, Flippersim., 
Rambo II, Formel I, Comman¬ 
der u.v.a.: Liste anf. würde 
auch tauschen. Rolf Crisovan, 
Krebsriedgasse 16, CH-6460 
Altdorf 

Verkaufe: TI99/4A 110 DM; 
XBasic 140 DM; 

Minimem 130 DM; E/A m.dt. 
Handb. 170 DM; Box, Contr., 
Disk 650 DM; 32K 200 DM; 
RS232 200 DM; Schach 50 DM; 
Parsec, Othello 50 DM; Joyst. 
35 DM; Bücher, Zeitschr. 100 
DM... C. Hasselkuss, Zaunkö¬ 
nigweg 5. 4630 Bochum, 0234/ 
311411 _ 

Suche Tl-User. Zwecks Softw.- 
Austausch. Nur Kass. an: Mar¬ 
co Göbel, Emst-Reuter-Str. 9, 
3550 Marburg 

Suche Diskette TI-Artist Ver¬ 
sion 2.0. Verkaufe MBi-Interfa- 
ce. TI99/4A AWF Centronics. 
Preis 140 DM. T. 06196/42411 

Verk. TI99/4A + Ex.Basic + 
TI Invaders + Cass. Rec.Kabel 
+ VTel Literatur + Joyst. 
Adapterkabel f. 260 DM. Auch 
einzeln. 

Dieter Schafhuber, A-6200 
Hinterriß 7 

Verk. TI99/4A, P-Box, 32K, 
Laufw., Contr., RS232 m. Ka¬ 
bel, X-Basic, E/A, Writer, 
Schach, Advent., Invader, 
Munchman, K-Rek., div. Pr. u. 
Spiele auf Disk u. Kas., 
Zeitschr. u. Bücher VB 1200,-, 
auch einz. Tel. 0431/563724 

Tl-Computer Benutzer Club 
Schweiz, Postfach 322, CH- 
4528 Zuchwil - Steckbrief: 
Mitgl. 300 TI99/4A Besitzer, 
unterteilt in 5 Sektionen. Du 
erhälst weitere Infos! Fordere 
sie an mit einer Postkarte! 
Gruß Euer TILI 

Verkaufe TI99/4A Versch. Mo¬ 
dule, 10 Org. Dynamics Cass., 
13 Org. Cass. m. Spiele Speech 
Sunth. ExBasic. Viel Lit. u. 
Zeitschr., Org. Sticks u. Adap¬ 
ter f. ATARI Sticks 680 DM, 
Tel.08122/20624 18h 


❖ **HELP***HELP*** 
Du hast mir auf Grund meiner 
Anzeige die ADV-Lösungen 
geschickt. Als ich Dir nun die 
Disk, zurückschicken wollte, 
fand ich Deine Adr. nicht 
mehr! Bitte melde Dich bei 
mir. C. Jarque, Ludwigsbur- 
ger-Str. 14, 7257 Ditzingen 1, 
T.07156/34941 

❖❖❖ACHTUNG*** 

Suche: Diskettenlaufw. bis 350 
DM (ext.) + 32K-Erweiterung 
mit Centronicsschnitt 
stelle für bis 200 DM. Knut 
Meissner, 

Marsbergerstr. 2, 3549 Diemel¬ 
stadt 3 

HALLO! Noch Zubehör gefäl¬ 
lig? Leicht def. TI mit 32K int., 
Exb., Speech-Synt., Progr.- 
Rec. + Kabel, Joyst., Addap., 
Quicksh. Joyball, Module: z.B. 
Pole Posit., Schachm., Hop¬ 
per, 10 Ass. Progr. auf Kass., 
Software, TI-Rev., Bücher. 
Auch einzeln! 32K ist übrigens 
noch voll in Ordn.! Preise ist 
VHB aber günstig! Michael, 
Tel. 06127/5652 _ 

❖ ❖Texas Instrumens-Fans** 
- TI-Rev. von der 1. Ausg. - 
einschl. Heft 4/86 + Sonderh. 
1/85 + 2/85 + jede Menge Li- 
stings aus and. Heften kmpl. 
nur 50 DM. 

Tel. 04191/60215 


Verk. wenig, gebraucht: Ma¬ 
trixdrucker Seikosha GP 
100 A, 80 Zeichen/Zeile m. 
Hardcopy-Progr. f. 250,— 
DM. N. Burkhard, Ringstr. 
21, 6530 Bingen 17. 


Zu verk. Handb. z. Adver- 
tizer Modul 20,— Fr. Brief- 
Vorauskasse o. NN. B. 
Schönauer, Alpenstr. 32, CH- 
2540 Grenchen. 

Suche Eprombrenner + Soft¬ 
ware - 


Diskettenlaufwerk Sliml. 
5-1/4 'DS TEAC 
FD55B 160,- 

Einbausatz 2 Laufwerke 
+ Stecker + Zeichnungen 


für TI 99/4A Box 


komplett 

GROM-Platine 

320 - 

+ Gehäuse 

22- 

Module Statistics 

20- 

Module Othello 
E.L.Levits 

20- 

Roggenkamp 3 

2000 Hamburg 60 
040/2994609 wegen 
Urlaub ab 1.9. nur 
schriftlich 
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der Mannesmann-Tally 




ir/mgedeM-i 


zäTsphenlOO^eich en/Sekunde-und^ e%i 
als 600 Zeilen/Minuie Drückgeschwjnn|gi 
keif, für Home Computer, Personal : 
Computer, Bürocomputer, Textsysterrfe, jj. 
EDV-Systeme. Drucker mit vielen Zusät£^ 
ausstattungen wie Einzelblattzuführ,r£p§| 
Stapelzufuhr, Mehrfarbdruck, Etiketten^ 
druck oder Schneidevorrichtung. Drückt 
mit vielen, wählbaren Schriftarten. 

























